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

var a,n,sum: integer;beginsum:=0;n:=0;readln(a);while a<>0 dobeginsum:=sum+a;n:=n+1;end;writeln(sum/n);end.