Необходимо написать программу вывода всех квадратов натуральных чисел

[rengeer]

Необходимо написать программу вывода всех квадратов натуральных чисел

необходимо написать программу вывода всех квадратов натуральных чисел не превосходящих заданного числа n.
надо написать ее с помощью цикла с постусловием( repeat until) Помогите всю голову сломал!!

 

[MagentaTiger]

Как ? Как можно "сломать голову", над заданием такой ЧУДОВИЩНОЙ сложности ? )

program a;
var i,n:Integer;
begin
write('Input natural number N: ');
readln(n);
i:=1;
repeat
writeln('i =',i:4,'  i^2=',i*i:4);
Inc(i);
until i>n;
readln;
end.