Напишите программный код к следующей : организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. после ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.! ​

Program mm;

var sum, sred, a, n:Real;

begin

sum:=0;

a := 0;

Read(n);

while n<>0 do begin

a:=a + 1;

sum := sum + n;

sred := sum/a;

Read(n);

end;

WriteLn('Colichestvo:', a);

WriteLn('Spednee:', sred);

WriteLn('Summa:', sum);

end.

Вот решение.