{$mode objfpc}{$H-}{$R+}{$T+}{$Q+}{$V+}{$D+}{$X-}{$warnings on}
program circuito;
    
// Nombre:
// Apellidos:


procedure escribe_entrada(num_pista, velocidad: integer; distancia: real);
begin
    write('Número de pista: ',num_pista);
    write(chr(9)); // Tabulador
    write('Velocidad: ', velocidad, ' nudos');
    write(chr(9)); // Tabulador
    writeln('Distancia: ', distancia:0:1, ' millas');
end;


procedure escribe_instrucciones(head1, head2, head3, head4: integer; 
    tiempo_v_cola, tiempo_v_cruzado: real);
begin
    writeln('Tramo inicial: ', head1, 'º. ');

    write('Tramo viento cruzado: ', head2, 'º. ');
    writeln(tiempo_v_cruzado:0:0, ' segundos');

    write('Tramo viento en cola: ', head3, 'º. ');
    writeln(tiempo_v_cola:0:0, ' segundos');

    write('Tramo base: ', head4, 'º. ');
    writeln(tiempo_v_cruzado:0:0, ' segundos');

    writeln('Tramo viento de frente: ', head1, 'º. ');
end;


var
    num_pista, velocidad : integer;
    distancia : real;
    
begin
    num_pista := 18;
    velocidad := 120;
    distancia := 4;
    calcula_y_escribe(num_pista, velocidad, distancia);

    num_pista := 10;
    velocidad := 100;
    distancia := 2;
    calcula_y_escribe(num_pista, velocidad, distancia);

    num_pista := 40;
    calcula_y_escribe(num_pista, velocidad, distancia);

    num_pista := 18;
    velocidad := 89;
    calcula_y_escribe(num_pista, velocidad, distancia);

    velocidad := 151;
    calcula_y_escribe(num_pista, velocidad, distancia);

    velocidad := 110;
    distancia := 0.4;
    calcula_y_escribe(num_pista, velocidad, distancia);

    velocidad := 110;
    distancia := 5.5;
    calcula_y_escribe(num_pista, velocidad, distancia);
end.