Помогите решить задачу на 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.