Исполнитель Чертежник выполняет приведенный ниже алгоритм: Определите, какими должны быть значения a и b для того, чтобы исполнитель вернулся в первоначальную точку. Значения a и b введите последовательно через пробел

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

на диске и во перативной памяти информация хранится   двоичном формате и

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.