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

и label metka?

))))) goto, значит, проходили? или проходили и мимо прошли?

да, нет я имел ввиду что значит label

label [имя метки] это метка, т.е. место в программе, куда можно вернуться в любой момент перейдя по ссылке goto [имя метки] не просто так спрашивал проходили ли метки

странно, что не смутило metka:

program zadanie;varmax,num,a :byte;label metka;beginmax:=0;writeln('vvodite chisla');metka:readln(a);if a=0 thenwriteln ('max=',max)else    if a*a>225 then       begin            writeln('Slishkom bolshoe chislo');            goto metka;       end    else        begin             if max<a then max:=a;             goto metka;        end;readln;end.