Вводится последовательность натуральных чисел. ноль – при- знак конца. подсчитайте, сколько раз в этой последовательности встре- чается максимальное кратное семи число, и выдайте полученный ре- зультат.

Pascal

//В задании не сказано, что выводить, когда нет чисел, кратных 7, поэтому я вывожу 0.

var a, max:longint;
begin
max:=0;
a:=1;
while a <> 0 do
begin
readln(a);
if (a mod 7=0)and(a>max) then max:=a;
end;
writeln(max);
end.