Salario neto de un empleado en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcule el salario neto de un empleado sabiendo que gana un salario básico, le descuentan el 10% y le dan dos bonificaciones una del 9 y otra de 20.

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

program SalarioNetoDeUnEmpleado;

uses crt;

var bonificacion_1, bonificacion_2, descuento, salario_basico, salario_neto : real;

begin

    write ('Ingresa el valor de salario basico: ');

    readln (salario_basico);

    descuento := salario_basico*0.1;

    bonificacion_1 := salario_basico*0.09;

    bonificacion_2 := salario_basico*0.2;

    salario_neto := salario_basico-descuento+bonificacion_1+bonificacion_2;

    writeln ('Valor de bonificacion 1: ', bonificacion_1:0:6);

    writeln ('Valor de bonificacion 2: ', bonificacion_2:0:6);

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

    writeln ('Valor de salario neto: ', salario_neto:0:6);

    writeln;

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

    readkey;

end.