Среднее значение последовательности

Определите среднее арифметическое элементов последовательности, завершающейся числом 0.

Число 0 в последовательность не входит. Числа, следующие за нулем, считывать не нужно.

Входные данные
Вводится последовательность целых чисел. Ввод завершается, когда будет введено число 0.

Выходные данные
Выведите одно число - среднее арифметическое элементов последовательности

Исходный код на языке Pascal
var
  a, s, k: integer;

begin
  s := 0;
  k:=0;
  read (a);
  while a <> 0 do
  begin
    s := s + a;
    k:=k+1;
    read(a);
  end;
  writeln(s/k);
end.