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