⇢ 
Атёнак
Прыгун сделал N прыжков. Определите среднюю дальность прыжка (вводится дальность каждого прыжка в см)
не могу понять как ввести дальность каждого прыжка и на этом стопорится всё остальное .-.
Составить программу цикл While
ПЧ
Петр Черешнев
program prj1;
var k: integer;
smm,cnt: integer;
begin
k:=1; cnt:=0; cmm:=0;
while read(k) do
if k in ('0'..'9') then
begin
smm:=smm + k;
Inc(cnt);
end else break;
writeln('Средняя дальность = ', smm / cnt);
readln;
end.