Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 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.

Uses crt; var       b, a: real;       n: integer; begin       clrscr;       repeat               write('выберите фигуру (1-квадрат, 2-прямоугольник)');               readln(n);                             case n of                       1:                               begin                                       write('сторона квадрата=');                                       readln(a);                                       write('s=', a * a);                               end;                       2:                               begin                                       write('стороны прямоугольника=');                                       readln(b, a);                                       write('s=', b * a);                               end;               else exit;               end;       until false; end.