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

не работает

ща проверю

странно у меня все работает

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