программирование на языке Паскаль, очень надо
вводится последовательность натуральных чисел, кол-во не более 10 тысяч, каждое число не может превышать 30 тысяч. Окончанием ввода является 0. Определите кол-во чисел кратных 5

VarA:array[0..10000] of integer;B,i:integer;Begini:=0;Read(B);While B<>0 doBeginA[i]:=B;i:=i+1;Read(B);End;B:=0;i:=0;While A[i]<>0 doBeginif A[i] mod 5 = 0 then B:=B+1;i:=i+1;End;Write('Количество чисел, кратных пяти: ',B);End.

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017// Внимание! Если программа не работает, обновите версию!begin  var k:=ReadSeqIntegerWhile(x->x<>0).Where(x->x mod 5=0).Count;  Writeln('Чисел, кратных 5: ',k);end.Пример34 -15 28 30 5 -3 -5 0Чисел, кратных 5: 4