Вывод квадратов натуральных чисел

Вывести все квадраты натуральных чисел, не превосходящие данного числа N.

Например, если N = 50, то на экран должен быть выведен ряд 1 4 9 16 25 36 49.

Алгоритм решения задачи:

1. Ввести число n.
2. Присвоить x единицу. Это первое натуральное число.
3. Присвоить переменной y также единицу, так как 1² = 1.
4. Пока y < n
   1. Вывести значение y на экран.
   2. Увеличить значение x на единицу, получив тем самым следующее натуральное число.
   3. Возвести x в квадрат и присвоить полученное значение переменной y.

Программа на языке Паскаль с использованием цикла while:

var
    n, x, y: integer;
 
begin
    write('Введите предел: ');
    readln(n);
 
    x := 1;
    y := 1;
 
    while y < N do begin
        write(y, ' ');
        x := x + 1; 
        y := sqr(x);
    end;

    writeln;
end.

С циклом repeat:

var
    n, x, y: integer;
 
begin
    write('Введите предел: ');
    readln(n);
 
    x := 1;
    y := 1;
 
    repeat 
        write(y, ' ');
        x := x + 1; 
        y := sqr(x);

    until y >= N;
 
    writeln;
end.

Пример выполнения:

Введите предел: 139
1 4 9 16 25 36 49 64 81 100 121