Помогите написать программу! Pascal!!!

Question

С клавиатуры вводятся числа. 0 - последнее число. Найти среднее арифметическое этих чисел.

Olga Sukharenko · Accepted Answer

сложить все числа и поделить на их количество

Мирель Чолпонкулов · Answer

var
sum,num:integer;
begin
 sum := 0;
 write('Введите числа: ');
 repeat
 read(num);
 sum := sum + num;
 until num = 0;
 writeln();
 writeln('Сумма чисел равна: ',sum);
end.