program jooksjad;
var kiirus,i,s,v,aeg:integer;
summa: real;
begin
s:=100;
summa:=0;
writeln('arvutan iga jooksja aja, mis kulus saja meetri l„bimiseks');
for i:=1 to 10 do begin
writeln('Sisesta jooksja ',i, ' aeg');
readln(aeg);
begin
writeln('Arvutan jooksja ',i,' �hes tunnis l„bitud vahemaa');
writeln(s,'/',aeg,'=',s/aeg:5:2, 'm/s');
writeln(((s/aeg)*3600)/1000:5:2, 'km/h');
end;
summa:=s/aeg+summa;
end;
begin
writeln('arvutan käigi jooksjate keskmise kiiruse');
writeln('keskmine kiirus on ', summa/10:5:1, ' m/s');
end;
end.