Программа, принимающая целые числа до тех пор, пока не будет введён «0». По завершению ввода чисел программа должна подсчитать среднее арифметическое введённых чисел. Использовать цикл while

program Hello;

var c:integer; a,b:real;

begin

 a:=1; b:=0; c:=0;

 while a <> 0 do begin

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

 readln(a);

 b := a + b;

 c := c + 1;

 end;

 b := b / c;

 writeln ('Среднее арифмитическое чисел равно ', b);

end.