Liquidación de sueldo en lenguaje Pascal

Lenguaje

Pascal
Descripción

Se desea hacer la liquidación de sueldo para los empleados de una institución. Se conoce el salario básico y los siguientes conceptos:
Adicionales:
10% en concepto de antigüedad.
$250 en concepto de salario familiar.
Descuentos:
14% de aporte jubilatorio.
$15 de seguro de vida obligatorio.
Mostrar cada concepto de sueldo y el total a percibir.

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

program LiquidacionDeSueldo;

uses crt;

var antiguedad, aporte_jubilatorio, salario_basico, salario_familiar, seguro_de_vida : real;

var total_a_percibir : real;

begin

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

    readln (salario_basico);

    antiguedad := salario_basico*0.1;

    salario_familiar := 250;

    aporte_jubilatorio := salario_basico*0.14;

    seguro_de_vida := 15;

    total_a_percibir := salario_basico+antiguedad+salario_familiar-aporte_jubilatorio-seguro_de_vida;

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

    writeln ('Valor de aporte jubilatorio: ', aporte_jubilatorio:0:6);

    writeln ('Valor de salario familiar: ', salario_familiar:0:6);

    writeln ('Valor de seguro de vida: ', seguro_de_vida:0:6);

    writeln ('Valor de total a percibir: ', total_a_percibir:0:6);

    writeln;

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

    readkey;

end.