var
  i, n, temp: integer;

begin
  write('Введите n: ');
  readln(n);
  write('Числа, не превышающие n: ');
  for i := 1 to n do
  begin
    temp := i * i;
    if (temp <= n) then
      write(temp, ' ')
    else
      break;
  end;
end.