Pascal/Turbo Pascal - Calculo de Prestaciones

{Esto es lo que pides}

 program calculo;

  uses

     crt;

  var

    ayoslaborales : integer;

    salariultimos12meses : real;

    diasvacaciones : integer;

    preaviso : boolean;

    ultimomesesdeesteperiodopreaviso : integer;

    tec : char;

  begin

      clrscr;

      write('   A¤os Laborales                : ');

      readln(ayoslaborales);

      write('   Salario Ultimos 12 Meses      : ');

      readln(salariultimos12meses);

      write('   Dias De Vacaciones            : ');

      readln(diasvacaciones);

      write('   A Realizado Preaviso Aviso [S/N]');

      repeat

         tec := upcase(readkey);

      until tec in['S','N'];

      if tec = 'S' then

      preaviso := true

   else

      preaviso := false;

      write(preaviso);

      writeln;

      write('   Ultimos Meses De Este Periodo : ');

      readln(ultimomesesdeesteperiodopreaviso);

      clrscr;

      writeln('  ****** Los Datos Entrados Son ******');

      writeln('A¤os Laborales Son            = ',ayoslaborales);

      writeln('Salario Los Ultimos 12 Meses  = ',salariultimos12meses:0:2);

      writeln('Dias De Vacaciones            = ',diasvacaciones);

      writeln('Se Realizo Previo Aviso       = ',preaviso);

      writeln('Ultimos Meses De este Periodo = ',ultimomesesdeesteperiodopreaviso);

      writeln('   Presione Una Tecla');

      readkey;

  end.