Паскаль Цикл с предусловием. С клавиатуры вводятся положительные и отрицательные числа до тех пор, пока не будет введен 0 Найти количество положительных чисел, кратных 7.
​

program pr;

var

 i, n, sum, m: integer;

begin

 writeln('Введите количество чисел');

 readln(n);

 sum := 0;

 for i := 1 to n do

 begin

   read(m);          

   if (m mod 4 = 0) and (m mod 10 = 4) then

     sum := sum + m;

 end;

 writeln;

 writeln('Сумма: ', sum);

end.

Объяснение: