В одну и ту же числовую переменную последовательно вводятся целые числа. Количесвто вводимых чисел заранее известно (0 - конец ввода). Определить количество чисел не кратных 5.

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

read (x); / / вводим первое значение последовательности

y:=0; / / задаем начальное значение для количества кратных чисел

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

if x mod 5 = 0 then y:=y + 1; / / проверяем условие, если введенное число делится на пять без остатка, то считаем его

read (x); / / вводим очередное число последовательности

end;

writeln (' количество введенных чисел кратных 5 = ', y); / / выводим ответ на экран

end.