С клавиатуры вводятся целые числа. Количество чисел заранее не известно. Ввод чисел оканчивается нулем.
Найти среднее арифметическое введенных чисел.
(нужна программа на языке Pascal)

program sapch;

uses

crt;

var

k, s, c: integer;

var

sr: real;

begin

s := 0;

c := 0;

k := 1;

while k <> 0 do

begin

readln(k);

s := s + k;

c := c + 1;

end;

writeln;

sr := s / c;

writeln(sr);

readln;

end.