"justify"> z: = e + r + v;; sum (x, y: pack; var d: pack);
q, e, g, k, z, cj, h: byte;
obnul (d);
cj: = 0;
for q: = 20 downto 3 do
begin
tetrsum (x, y, e, q, cj);
cj: = 0;
k: = round (q/2);
h: = q mod 2;
if e> 9 then
begin
e: = e-10;
cj: = 1;
end;
z: = 4 * h;
d [k]: = d [k] + e shl z;
end;; bolshe (x, y: pack; var bool1, bool2: boolean); i: word;
bool1: = false;
bool2: = false;
i: = 2;
repeat
if x [i]> y [i] then bool1: = true
else bool2: = true;
inc (i);
until (i> 10) or (bool1 = true) or (bool2 = true);; deBox (X: pack); q, z: byte;
vh: string [20];
vh: = '00000000000000000000 ';
for q: = 20 downto 3 do
begin
z: = gettetr (x, q);
vh [q]: = char (z +48);
end;
write (vh);; addnum (var x: pack; num: byte); q, i, e, r, z, k, cj: byte;
d: pack;
cj: = 0;
d: = x;
obnul (x);
for q: = 20 downto 3 do
begin
e: = gettetr (d, q);
e: = e + num + cj;
num: = 0;
cj: = 0;
k: = round (q/2);
i: = q mod 2;
if e> 9 then
begin
e: = e-10;
cj: = 1;
end;
z: = 4 * i;
x [k]: = x [k] + e shl z;
end;; dop (var x: pack); q: byte;
for q: = 2 to 10 do
begin
x [q]: = x [q] + $ 66;
x [q]: = not x [q];
end;
x [q]: = x [q] + 1;; undop (var x: pack); q: byte;
for q: = 2 to 10 do
begin
x [q]: = not x [q];
x [q]: = x [q] - $ 66;
end;
addnum (x, 1);; Auto;
writeln ('Insert A');
perevod (a);
vivdcode (a...