Написать программу, которая выведет на экран среднее арифметическое, оканч на 0 - Pascal ABC

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

Написать программу, которая выведет на экран среднее арифметическое, оканч на 0. На вход программа получает числа, ввод чисел заканч. нулём.

Решение задачи: «Написать программу, которая выведет на экран среднее арифметическое, оканч на 0»

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

var s, k, t: Integer;
begin {k:=0; s:=0;}
  repeat
    Read(t); if t=0 then Break;
    Inc(k); s:=s+t;
  until False;
  if k>0 then WriteLn('Ср.арифм: ',s/k)
  else WriteLn('Нет чисел');
end.

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

Объявлены три переменные: s, k, t типа Integer.
Начальные значения переменных k и s установлены равными 0.
В цикле repeat-until происходит чтение значения переменной t из стандартного ввода.
Если t равно 0, то цикл прерывается.
Значение переменной t прибавляется к s, а переменная k увеличивается на 1.
Если k больше 0, то вычисляется и выводится на экран среднее арифметическое s и k (s/k).
Если k меньше или равно 0, то выводится сообщение Нет чисел.