• Lenguaje

    Pascal

  • Descripción

    Lea el salario mensual de un trabajador y con esta cifra calcule y muestre descuento que se le hace por salud (4%) y pension (5%).

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program DescuentosPorSaludYPension;
uses crt;

var descuento_por_pension, descuento_por_salud, descuentos, salario_mensual, total : real;
begin
    write ('Ingresa el valor de salario mensual: ');
    readln (salario_mensual);
    descuento_por_salud := salario_mensual*0.04;
    descuento_por_pension := salario_mensual*0.05;
    descuentos := descuento_por_salud+descuento_por_pension;
    total := salario_mensual-descuentos;
    writeln ('Valor de descuento por pension: ', descuento_por_pension:0:6);
    writeln ('Valor de descuento por salud: ', descuento_por_salud:0:6);
    writeln ('Valor de descuentos: ', descuentos:0:6);
    writeln ('Valor de total: ', total:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.