Question

Ребят, очень нужна помощь
С клавиатуры вводятся натуральные числа.Конец ввода чисел–0,в подсчет

количества не входит.Вычислить и вывести на экран количество чисел,

кратных 7.
​

Answer 1

var

   a, n : integer;

begin

   repeat

       read(a);

       if a div 7 = 0 then n += 1;

   until a = 0;

   writeln(n);

end.