Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) подсчет суммы и среднего арифметического введённых положительных чисел и определение максимального (наибольшего) из введённых чисел. Используйте оператор repeat.

Var

a, i, max: integer;

sum: real;

begin

max : = 0;

sum : = 0;

i : = 0;

repeat

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

readln (a) ;

if a > 0

then begin

sum : = sum + a;

i : = i + 1;

end;

if max < a

then max : = a;

until a = 0;

writeln (#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max) ;

end.