Pascal/Turbo Pascal - CALCULAR LA NOMINA DE 10 TRABAJADORES

Uses CRT;

const

  PRECIODIA = 130;

var

  NOMBRE : String;

  DIAS   : Byte;

  SUELDO : Integer;

begin

  Clrscr;

  Gotoxy(10,10); Writeln('Nombre: ');

  gotoxy(18,10); readln(nombre);

  gotoxy(10,12); Writeln('DIAS TRABAJADOS: ');

  gotoxy(27,12); readln(dias);

  SUELDO:=DIAS*PRECIODIA;

  gotoxy(10,14); Writeln('SUELDO: ', SUELDO,' PESOS');

  READLN;

end.

Uses CRT;

const

PRECIODIA = 130;

TOPE = 10;

var

NOMBRE : String;

DIAS : Byte;

SUELDO : Integer;

begin

   FOR I:=1 TO TOPE do

     begin

         Clrscr;

         Gotoxy(10,10); Writeln('Nombre: ');

         gotoxy(18,10); readln(nombre);

         gotoxy(10,12); Writeln('DIAS TRABAJADOS: ');

         gotoxy(27,12); readln(dias);

         SUELDO:=DIAS*PRECIODIA;

         gotoxy(10,14); Writeln('SUELDO: ', SUELDO,' PESOS');

    Writeln('Pulse una tecla para continuar');

readkey;

   end;

end.