Sueldo a fin de mes en lenguaje Pascal

Lenguaje

Pascal
Descripción

Ingrese el sueldo y las 3 ventas realizadas en el mes por un trabajador. Calcular el sueldo total a fin de mes, si la empresa reconoce el 10% sobre el total de las ventas realizadas.

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

program SueldoAFinDeMes;

uses crt;

var sueldo, sueldo_total, venta_1, venta_2, venta_3 : real;

begin

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

    readln (sueldo);

    write ('Ingresa el valor de venta 1: ');

    readln (venta_1);

    write ('Ingresa el valor de venta 2: ');

    readln (venta_2);

    write ('Ingresa el valor de venta 3: ');

    readln (venta_3);

    sueldo_total := sueldo+(venta_1+venta_2+venta_3)*0.1;

    writeln ('Valor de sueldo total: ', sueldo_total:0:6);

    writeln;

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

    readkey;

end.