);
if (long = false) and (symb = false) then
begin
writeln ('Insert B');
perevod (b);
vivdcode (b);
if (long = false) and (symb = false) then
begin
If a [1] = b [1] then
begin
Sum (A, B, C);
writeln ('C = A + B');
writeln ('C in BCD');
vivdcode (c);
debox (c);
writeln;
end
else
begin
if a [1] <> 0 then
begin
dop (a);
writeln ('A in dop');
vivdcode (a);
end
else
begin
dop (b);
writeln ('B in dop');
vivdcode (b);
end;
sum (A, B, C);
writeln ('C = A + B');
writeln ('C in BCD');
bolshe (a, b, bola, bolb);
if c [2] <> 0 then
undop (c);
vivdcode (c);
debox (c);
end;
end;
end;; min (X: pack); q, e: byte;
for q: = 3 to 20 do
begin
e: = gettetr (x, q);
if e <= 9 then
write (cod [e +1])
else write (cod [11]);
end;
writeln;; show;
writeln ('C = A + B');
min (A);
writeln ('+');
min (B);
writeln ('___');; Step; u: byte; ch: char;
u: = 0;
writeln ('Press "n" to chouse next position');
repeat
ch: = readkey;
if ch = 'n' then inc (u);
case u of
1: begin
writeln ('Insert A');
perevod (a);
if (long = false) and (symb = false) then
begin
writeln ('Insert B');
perevod (b);
writeln ('A in BCD');
vivdcode (a);
writeln ('B in BCD...
