Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. после ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое. в паскале через repeat

Var
a,b,i:integer;
ar:real;
begin
b:=0;
 repeat
     read(a);
    b:=b+a;
    i:=i+1;
  until a = 0;
  ar:=b / i;
writeln('Количество чисел = ', i);
writeln('Общая сумма = ', b);
writeln('Cреднее арифметическое = ',ar);
  end.