Является ли число перевёртышем, т.е числом, десятичная запись которого читается одинаково слева направо и справа налевопример входных данных пример выходных данных 122 нет 121 перевёртыш 222 перевёртыш

begin

  var n : = readinteger();

  for var i : = 1 to n.tostring.length div 2 do

  begin

    if (n.tostring[i] < > n.tostring[n.tostring.length - i + 1]) then

    begin

      write('нет');

      exit;

    end;

  end;

  write('перевёртыш');

end.

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

1*2⁶+1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+1*2⁰=

64+32+8+2+1=107

1*2⁶+0*2⁵+0*2⁴+0*2³+1*2²+1*2¹+0*2⁰=

64+4+2=70