Паскаль.цикл

[vladter]

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

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

[Alex11223]

Проблема-то в чем? Не умеете возводить в квадрат и извлекать квадратный корень?
Сделаю за небольшое вознаграждение вебмани или ЯД (контакты в подписи).

[vladter]

решить саму задачу

[Alex11223]

while(a < n) do
begin
    writeln(a);
    inc(i);
    a := i * i;
end;

Остальное сами напишите надеюсь? Если нет, то вот .ехе — дам исходник за 50р.