Sueldo y gratificación en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcular y mostrar el sueldo de un trabajador en donde se debe ingresar el sueldo base del trabajador y luego se le debe sumar el 35% del mismo sueldo como gratificación, a eso se le debe restar un anticipo que se ingresa por el teclado del computador y un 25% por descuentos legales.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program SueldoYGratificacion;

uses crt;

var anticipo, descuentos_legales, gratificacion, sueldo, sueldo_base : real;

begin

    write ('Ingresa el valor de anticipo: ');

    readln (anticipo);

    write ('Ingresa el valor de sueldo base: ');

    readln (sueldo_base);

    gratificacion := sueldo_base*0.35;

    descuentos_legales := sueldo_base*0.25;

    sueldo := sueldo_base+gratificacion-anticipo-descuentos_legales;

    writeln ('Valor de descuentos legales: ', descuentos_legales:0:6);

    writeln ('Valor de gratificacion: ', gratificacion:0:6);

    writeln ('Valor de sueldo: ', sueldo:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.