Найти среднее арифметическое введенных чисел, а также максимальное и минимальное значения - Pascal

Формулировка задачи:

Помогите написать программу к задаче и составить блок схему! Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число «0». Найти среднее арифметическое введенных чисел, а также максимальное минимальное значения. Буду премного благодарен!

Решение задачи: «Найти среднее арифметическое введенных чисел, а также максимальное и минимальное значения»

Листинг программы

Var
  n,min,max,s,k: Integer;
BEGIN
min:=High(min);
max:=Low(max);
Writeln('Vvedite posledovatelnost (konec - 0): ');
Repeat
  Inc(k);
  Readln(n);
  If n>max Then max:=n;
  If (n<min) and (n<>0) Then min:=n;
  s:=s+n;
until n=0;
Writeln('Srednee arifm = ',s/(k-1):2:2);
Writeln('MIN= ',min);
Writeln('MAX= ',max);
Readln
END.

Объяснение кода листинга программы

В начале кода объявляются переменные: n, min, max, s, k, которые будут использоваться для хранения введенных чисел и вычисления среднего арифметического.
Затем выполняется инициализация переменных min и max. Переменная min устанавливается равной максимальному значению типа Integer (в данном случае это значение равно High(min)), а переменная max устанавливается равной минимальному значению типа Integer (в данном случае это значение равно Low(max)).
Выводится сообщение с просьбой ввести последовательность чисел (кроме нуля), заканчивающуюся нулем.
Затем начинается цикл Repeat, который будет повторяться до тех пор, пока пользователь не введет ноль.
Внутри цикла увеличивается значение переменной k на единицу.
Затем считывается введенное пользователем число n.
Проверяется, больше ли введенное число max. Если да, то значение max обновляется.
Также проверяется, меньше ли введенное число min, и если это так, то значение min обновляется.
Значение переменной s увеличивается на сумму введенных чисел n.
Цикл повторяется до тех пор, пока пользователь не введет ноль.
После окончания цикла выводится среднее арифметическое, используя формулу s/(k-1).
Затем выводятся значения min и max с помощью функции Writeln.
Конец программы.