Sueldo neto de un trabajador en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcular el sueldo neto de un trabajador, teniendo en cuenta que sueldo neto = sueldo base - 10% del sueldo base (AFP) - otros descuentos + S/. 75 por familiaridad.

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

program SueldoNetoDeUnTrabajador;

uses crt;

var AFP, familiaridad, otros_descuentos, sueldo_base, sueldo_neto : real;

begin

    write ('Ingresa el valor de otros descuentos: ');

    readln (otros_descuentos);

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

    readln (sueldo_base);

    familiaridad := 75;

    AFP := sueldo_base*0.1;

    sueldo_neto := sueldo_base-AFP-otros_descuentos+familiaridad;

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

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

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

    writeln;

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

    readkey;

end.