Составить программу, цикл While.Прыгун сделал N прыжков. Определите среднюю дальность прыжка. . см. дополнение тут же

Определите среднюю дальность прыжка (вводится дальность каждого прыжка в см)

Program z1;
Var s,x:real;
begin
s:=0;
write('что-то');
readln(x);
while x<>0 do
begin
s:=s+x;
write('fuyhf');
end.

это пример решения к подобной задаче.. см. выше