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

Program;
var a,sum,k:integer;
      sr:real;
Begin
sum:=0;
k:=0;
while a<>0 do
begin
read(a);
sum:=sum+a;
k:=k+1;
end;
sr:=sum/k;
writeln(sr);
End.