Спо паскалю! (p.s. мы только начали цикл while) организован ввод чисел оканчивающихся нулём. посчитать сумму и количество чисел делящихся на a.

Var
S:real;
A,C,N:integer;
Begin
N:=0;
S:=0;
Write('A = ');ReadLn(A);
WriteLn('Введите последоваельность чисел:');
Read(C);
While C <> 0 do
   Begin
   if C mod A = 0 then
      Begin
      S:=S+C;
      N:=N+1;
      End;
   Read(C)
   End;
WriteLn('S = ',S);
WriteLn('N = ',N);
End.