Descuentos sobre el sueldo base en lenguaje Pascal

Lenguaje

Pascal
Descripción

Una empresa le hace los siguientes descuentos sobre el sueldo base a sus trabajadores: 1% por ley de política habitacional, 4% por Seguro Social, 0.5% por seguro de desempleo y 5% por caja de ahorro. Realice un algoritmo que determine el monto de cada descuento y el monto total a pagar al trabajador.

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

program DescuentosSobreElSueldoBase;

uses crt;

var caja_de_ahorro, ley_de_politica_habitacional, monto_total_a_pagar, seguro_de_desempleo, seguro_social : real;

var sueldo_base : real;

begin

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

    readln (sueldo_base);

    ley_de_politica_habitacional := sueldo_base*0.01;

    seguro_social := sueldo_base*0.04;

    seguro_de_desempleo := sueldo_base*0.005;

    caja_de_ahorro := sueldo_base*0.05;

    monto_total_a_pagar := sueldo_base-ley_de_politica_habitacional-seguro_social-seguro_de_desempleo-caja_de_ahorro;

    writeln ('Valor de caja de ahorro: ', caja_de_ahorro:0:6);

    writeln ('Valor de ley de politica habitacional: ', ley_de_politica_habitacional:0:6);

    writeln ('Valor de monto total a pagar: ', monto_total_a_pagar:0:6);

    writeln ('Valor de seguro de desempleo: ', seguro_de_desempleo:0:6);

    writeln ('Valor de seguro social: ', seguro_social:0:6);

    writeln;

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

    readkey;

end.