Помогите, пожалуйста!
Очень вас прошу!
Через паскаль!
Не использовать: const, count, label metka. .
Тема:" Сложность Алгоритмов"

Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат, которого не превосходит число 225.
Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода и не входит в последовательность).
Программа должна вывести одно число: наибольшее число в последовательности, квадрат которого не превышает число 225.

О! научился формулировать задачу. Уже хорошо.

program zadanie1;varmax,num,a :byte;beginmax:=0;writeln('vvodite chisla');repeatreadln(a);    if a*a>225 then            writeln('Slishkom bolshoe chislo')    else            if max<a then max:=a       ;

until a=0;readln;writeln('max=',max);end.