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

Pascal //В задании не сказано, что выводить, когда нет чисел, кратных 7, поэтому я вывожу 0.var a, max:longint;beginmax:=0;a:=1;while a <> 0 dobeginreadln(a);if (a mod 7=0)and(a>max) then max:=a;end;writeln(max);end.