лабы / лаб5 / lab5_2

program lab5_2;
var
i, j, sqr: integer;
square: string;
square_reversed: string = '';
begin
for i := 1 to 100 do
begin
sqr := i * i;
Str(sqr, square);

for j:=Length(square) downto 1 do square_reversed := square_reversed + square[j];
if square = square_reversed then WriteLn(i);

square_reversed := '';
end;
end.