Дано трехзначное число. напишите программу, которая определяет: является ли число "перевертышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево. 122 - нет 121 - перевертыш 222 - перевертыш

var

  n: integer;

begin

  write('n = '); readln(n);

  if (n div 100) = (n mod 10) then

      writeln('перевертыш')

  else

      writeln('нет');

  readln;

end.

{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии   в операторах uses, clrscr, readkey } const   n = 10; var   a: array[1..n, 1..n] of integer;   i, j, min, max: integer; begin   randomize;   {clrscr; }   writeln('исходный массив');   max: =-100; min: =100;   for i : = 1 to n do   begin       for j : = 1 to n do       begin           a[i, j] : = random(81)+10;           write(a[i,j]: 3);           if max< a[i,j] then max: =a[i,j]           else               if min> a[i,j] then min: =a[i,j]       end;       writeln   end;   writeln('min=',min: 2,', max=',max: 2);   {readkey} end. тестовое решение: исходный массив   38 43 63 12 80 87 22 82 39 52   88 82 79 35 68 67 66 63 84 85   78 48 46 26 63 71 32 71 86 45   11 38 55 12 75 85 68 13 64 88   87 16 27 26 74 34 88 76 26 25   74 45 17 18 43 81 88 46 40 18   65 41 87 85 51 59 36 76 51 73   90 63 89 87 88 71 31 29 43 38   74 47 55 70 61 56 31 46 60 84   88 31 64 56 32 55 19 32 66 24 min=11, max=90

1) uses crt; const n=5; m=7; var i,j,s: integer; a: array[1..n,1..m]of integer;       begin         randomize;         clrscr;                       for i: =1 to n do                        begin                                for j: =1 to m do                                    begin                                                  a[i,j]: =random(40)-19;                                                   write(a[i,j]: 4);                                     end;                                   writeln;                         end; writeln;           for j: =1 to m do                      begin                                  s: =0;                                   for   i: =1 to n do                                              s: =s+a[i,j];                                   writeln ('j: ',j,' ', s);                           writeln;                     end; end.