Решить на pascal. дано: а(100)-произвольный найти: среднее арифметическое.

Program srof;
var a,b,c,d:real;
begin 
writeln('введите любое количество цифр и завершите набор нажав 0'); 
readln(a);
 b:=0;
 c:=0;
 while (a<>0) do
 begin 
 b:=a+b;
  c:=c+1;
  readln(a); 
end; d:=b/c;
 writeln('ответ ',d);
 end.