ocurrencia

program gg;
{Autor: }

var dist, v1, v2,v3,p1,p2,p3:Real;
  ocurrencia, velocidad, tiempo:Real;
  hh,mm,ss:Real;

begin
randomize;
read(dist, v1, p1,v2,p2,v3,p3);
ocurrencia:=random(101);
ocurrencia:=30;
velocidad:=v1*ord(ocurrencia<=p1)+v2*ord((ocurrencia<=(p1+p2))and(ocurrencia>p1))
+v3*ord(ocurrencia>(p1+p2+p3));
velocidad:=velocidad*18/5;
tiempo:=dist/velocidad;
hh:=trunc(tiempo);
mm:=(frac(tiempo))*60;
ss:=(frac(mm))*60;
mm:=trunc(mm);
ss:=round(ss);
writeln('Tiempo: ',hh:2:0,'h ',mm:2:0,'m ',ss:2:0,'s ');
readln;
readln
end.