9;);
vivdcode (b);
end;
end;
2: begin
if (long = false) and (symb = false) then
begin
if a [1] = b [1] then
begin
show;
Sum (A, B, C);
min (c);
writeln (^ M ^ J, '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');
if c [2] <> 0 then
undop (c);
vivdcode (c);
debox (c);
end;
end;
end;
end;
until (u = 2);;.
Модуль Maincrt, Adding, Winw;
f: byte;
glavwin;
repeat
CH: = readkey;
case ch of
char (19): begin clrscr; Step; end;
char (1): begin clrscr; Auto; end;
char (27): ggg: = True;
char (8): help;
else Beep;
end;
until ggg = true;
end.
