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

Вот держи на языке паскаль: Var x,i:integer; Begin For i:=10 to 99 do If (i lt; 32) and ((i*i div 10) = (i*i mod 10)*10+((i*i div 10) mod 10)) then writeln(i) else If (i gt;= 32) and ((i*i div 100)=(i*i mod 10)*10+((i*i div 10)mod 10)) then writeln(i); end.

Var x,a:integer; begin x:=10; while (xlt;100) do begin a:=x*x; if (alt;999) then begin if (((a mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)then writeln(x); end else begin if (((a 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.

program n1;
var i,k,x,y:integer;
begin
for i:=10 to 99 do begin
k:=i*i;
if (k div 1000=0) then
if (k div 100=k mod 10) then writeln(i)
else begin
x:=k div 100;
y:=k mod 100;
if (x mod 10=y div 10) and (x div 10=y mod 10) then writeln(i);
end;
end;
end.
Ответ: 11, 22, 26