Pascal/Turbo Pascal - tarea para mañana

{Esto Puede Valer}

 program salario;

   uses

     crt;

  var

    horas : integer;

    precihora : real;

    extras, salari : real;

    las8, mas8 : integer;

  function sueldo : real;

  begin

      write('    Entre Importe Por Hora Normales : ');

      readln(precihora);

      write('    Entre Horas Trabajadas Min 40   : ');

      readln(horas);

      if horas < 40 then

      horas := 40;

      if (horas > 40) and (horas < 49) then

      extras := (horas - 40) * (precihora * 2);

      if horas > 48 then

      begin

          las8 := 8;

          mas8 := horas - 48;

          extras := ((las8 * precihora * 2) + (mas8 * precihora * 3));

      end;

      sueldo := (40 * precihora) + extras;

  end;

  begin

      clrscr;

      writeln('    ***** Entrada Datos Salario *****');

      writeln;

      salari := sueldo;

      clrscr;

      writeln('    ****** Los Resultados Son ******');

      writeln;

      writeln('    Horas Normales     : ',40,' Horas');

      writeln('    Horas Extras <= 8  : ',las8,' Horas');

      writeln('    Horas Extras > 8   : ',mas8,' Horas');

      writeln;

      writeln('    Importe Salario    : ',precihora * 40:0:2,' Euros');

      writeln('    Importe Extras     : ',extras:0:2,' Euros');

      writeln('    Sueldo Total       : ',salari:0:2,' Euros');

      writeln;

      writeln('    <<<<<< Pulse Una Tecla >>>>>>>');

      readkey;

  end.