Выведите на экран все двузначные числа, которые при возведении в квадрат палиндром. pascal abc

Var x,a: integer; begin x: =10; while (x< 100) do begin a: =x*x; if (a< 999) then begin if mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)then writeln(x); end else begin if mod 10)*1000 + ((a mod 100)div 10)*100 + ((a mod 1000)div 100)*10 + (a div 100))=a)then writeln(x); end; x: =x+1; end; end.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

 

var m,n: integer;

begin

  read(n,m);

  if n > m then writeln(m+n, n);

  else writeln(m+n, m);

end.

 

во второй непонятно как задются эти числа

 

var i,n: integer;

begin

  read(n);

  for i : = 1 to n do

      writeln(i, i*i);

end.

 

блок схемы мы не учили да и фигня эти схемы чесно говоря