Программа, вычисляющая сумму и среднее арифметическое положительных чисел, которые вводятся с клавиатуры.

Для завершения ввода чисел ввести ноль.

program paralepiped;
 s:=0;
 n:=0;
 repeat
 write('введите число 0-выход');
 readln(x);
 s:=s+x;
 n:=n+1;
 until x=0;
 writeln('sr. arifm-e=',s/(n-1));
...

автор: Abbatik