Вопрос Помогите составить программу в turbo pascal

[marcusm]

Задание: Вывести все квадраты натуральных чисел, не превосходящие данного числа N.
Пример: N=50 | 1 4 9 16 25 36 49
Применимый алгоритм в решении задачи:
-Ввести число N
-Присвоить X единицу
-Пока y<n
-Возвести X в квадрат и присвоить полученное значение переменной Y
-Если Y<N, вывести значение Y на экран
-Увеличить значение X на единицу

Надеюсь хоть кто-то поможет... очень нужно

 

[vital7934]

Тут же уже все расписано в алгоритме

 

[Neets]

Да, тут даже алгоритм подробно расписан, не знаю чем ещё помочь!) Могу сделать за тебя за небольшую плату