Даны целые положительные числа. ввод осуществляется до тех пор, пока не будет введён 0. найти сумму и среднее арифметическое введённых чисел

PascalABC.NET

begin

 var s, n, p: integer;

 s := 0;

 n := 0;

 repeat

   Read(p);

   if p = 0 then

     break;

   s += p;

   n += 1

 until False;

 Write('Сумма = ', s, ', ср.арифм = ', s/n)

end.