Пусть х - количество символов
16*x-8*x=4*2^13 (килобайты перевела в биты)
8х=2^15
x=2^12
x=4096
42 (8) = 100 010 (2)
0010 0010 (2) = 22 (16)
трех зайцев по углам, двоих вдоль стен
Вот так как то, если неправильно, напишите в комментах
program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
else
if a>c then writeln (b,c,a)
else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
if b>c then writeln (a,c,b)
else write(a,b,c)
end;
end.