' 0111 ', '1000', '1001 ',' errr ');
n = 9;
pack = array [1 .. 10] of byte;
vvod, vivod: string [20];
A, B, C: pack;
i, j, k: byte;
symb: boolean;
long, bola, bolb: boolean; Auto; Step; crt; box (f: byte; str: string; var X: pack);
z, q: byte;
j: = 0;
symb: = false;
q: = length (str);
for i: = 20 downto f-q do
begin
j: = ord (str [q]) -48;
dec (q);
k: = round (i/2);
z: = 4 * (i mod 2);
X [k]: = X [k] + j shl z;
end;; obnul (var x: pack); q: byte;
for q: = 1 to 10 do
x [q]: = 0;; vivd (x: pack);
for j: = 1 to 10 do
write (X [j], '|');
writeln;; Boxing (var X: pack);
obnul (x);
readln (vvod);
box (21, vvod, X);
vivd (x);; perevod (var x: pack);
obnul (x);
readln (vvod);
if length (vvod) <= 19 then
if vvod [1] = '-' then
begin
x [1]: = 8 shl 4;
box (22, vvod, x);
end
else
begin
if length (vvod) <19 then
begin
box (21, vvod, x);
end
else
long: = true
end
else
long: = true;; gettetr (X: pack; p: ​​byte): byte;
z, r: byte;
z: = round (p/2);
r: = X [z] shr 4;
if p mod 2 = 0 then
gettetr: = x [z] - r shl 4
else gettetr: = r;; vivdcode (X: pack); q, e: byte;
for q: = 1 to 20 do
begin
e: = gettetr (x, q);
if e <= 9 then
write (cod [e +1])
else write (cod [11]);
end;
writeln;; tetrsum (x, y: pack; var z: byte; p: byte; v: byte); e, r: byte;
e: = 0;
r: = 0;
e: = gettetr (x, p);
r: = gettetr (y, p);