Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет суммы и среднего арифмитического введённых положительных чисел.Используйте оператор repeat.
Program z; var a,i:integer; max:real; begin max:=0; i:=0; repeat writeln('Введите число'); read(a); max:=max+a; i:=i+1; until a=0; writeln('Сумма =',max); writeln('Средние значение =',max/i); end.