var pocet,dlzka,cas, vysdlzka,vyscas,i:integer;
rychlost:real;
begin
  pocet:= strtoint(inputbox('zadaj','pocet usekov',''));
  vysdlzka:=0;
  vyscas:=0;
  for i:= 1 to pocet do
  begin
    dlzka:= strtoint(inputbox('zadaj',''+inttostr(i)+'. usek v km',''));
    cas:= strtoint(inputbox('zaadaj',''+inttostr(i)+'. usek v minutach',''));
    vysdlzka:= vysdlzka + dlzka;
    vyscas:= vyscas + cas;
  end;
  rychlost:= vysdlzka/(vyscas/60);
  memo1.lines.Add('celkove prejdes ' + inttostr(vysdlzka) + ' km');
  memo1.lines.Add('trasa bude trvat ' + inttostr(vyscas) + ' minut');
  memo1.lines.Add('priemerna rychlost ' + floattostr(rychlost) + ' km/h');
end;
end.