Sueldo de 20 vendedores de seguros en lenguaje Pascal

Lenguaje

Pascal
Descripción

El sueldo que reciben los 20 vendedores de seguros de una empresa está formado de la siguiente manera: El salario mínimo más una comisión de $300 por cada seguro vendido más el 5% de todas las ventas.
Elaborar un programa en el que se calcule e imprima el nombre y sueldo de cada uno de los empleados y al final se despliegue el monto que pagara la empresa por todos los empleados.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

program SueldoDe20VendedoresDeSeguros;

uses crt;

var i : integer;

var monto_por_todos, salario_minimo, seguros_vendidos, sueldo, todas_las_ventas : real;

var nombre : string;

begin

    monto_por_todos := 0;

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

    readln (salario_minimo);

    for i:=1 to 20 do

    begin

        writeln ('PROCESO ', i);

        write ('Ingresa el nombre: ');

        readln (nombre);

        write ('Ingresa el valor de seguros vendidos: ');

        readln (seguros_vendidos);

        write ('Ingresa el valor de todas las ventas: ');

        readln (todas_las_ventas);

        sueldo := salario_minimo+seguros_vendidos*300+todas_las_ventas*0.05;

        monto_por_todos := monto_por_todos+sueldo;

        writeln ('Nombre: ', nombre);

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

        writeln;

    end;

    writeln ('Valor de monto por todos: ', monto_por_todos:0:6);

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

    readkey;

end.