лабы / лаб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.