• Lenguaje

    Pascal

  • Descripción

    Calcular el aporte del empleador a Essalud (9% del sueldo) y el descuento por AFP (10% del sueldo).

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program EssaludYAfp;
uses crt;

var aporte_a_Essalud, descuento_por_AFP, sueldo : real;
begin
    write ('Ingresa el valor de sueldo: ');
    readln (sueldo);
    aporte_a_Essalud := sueldo*0.09;
    descuento_por_AFP := sueldo*0.1;
    writeln ('Valor de aporte a Essalud: ', aporte_a_Essalud:0:6);
    writeln ('Valor de descuento por AFP: ', descuento_por_AFP:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.