Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат которого не превосходит число 225. программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода и не входит в последовательность). программа должна вывести одно число: наибольшее число в последовательности, квадрат которого не превышает число 225.
var
count, x : integer;
begin
count := 0;
repeat
read (x);
if (x mod 4=0) and (x mod 10=4) then inc (count);
until x = 0;
writeln (count);
end.