Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое. Подсказка: необходимо объявить переменную-счетчик, которая будет считать количество введенных чисел, и переменную, которая будет накапливать общую сумму чисел.СДЕЛАТЬ С ПОМОЩЬЮ ПАСКАЛЯ,ПОЖАЛУЙСТА!

Спасибо!

var  i, sum: integer;  arr: array[1..10000] of integer;begin  i := 0;  sum := 0;  repeat    i := i + 1;    readln(arr[i]);    sum := arr[i] + sum;  until (arr[i] = 0);  writeln('Кол-во введённых чисел: ', i - 1);  writeln('Их общая сумма сумма = ', sum);  writeln('Их среднее арифметическое = ', sum / (i - 1));end.