Salario quincenal en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcular el salario quincenal de un trabajador, tomando en cuenta:
Salario básico mensual $1,000,000
Bono 10% del salario quincenal
Subsidio de transporte $117,172
Deducciones:
Seguro colectivo 2%
Seguro social 15%
Caja de ahorro 3%

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

program SalarioQuincenal;

uses crt;

var bono, caja_de_ahorro, salario_basico_mensual, salario_quincenal, seguro_colectivo : real;

var seguro_social, subsidio_de_transporte : real;

begin

    salario_basico_mensual := 1000000;

    salario_quincenal := salario_basico_mensual/2;

    bono := salario_quincenal*0.1;

    subsidio_de_transporte := 117172;

    seguro_colectivo := salario_quincenal*0.02;

    seguro_social := salario_quincenal*0.15;

    caja_de_ahorro := salario_quincenal*0.03;

    salario_quincenal := salario_quincenal+bono+subsidio_de_transporte-seguro_colectivo-seguro_social-caja_de_ahorro;

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

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

    writeln ('Valor de salario basico mensual: ', salario_basico_mensual:0:6);

    writeln ('Valor de salario quincenal: ', salario_quincenal:0:6);

    writeln ('Valor de seguro colectivo: ', seguro_colectivo:0:6);

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

    writeln ('Valor de subsidio de transporte: ', subsidio_de_transporte:0:6);

    writeln;

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

    readkey;

end.