• Lenguaje

    Pascal

  • Descripción

    Un empleado desea saber cuánto debe pagar de impuestos. Su sueldo es de $1500 mensuales. Debe pagar retención del 10% del total de ingresos anuales y 15% de otros impuestos sobre los ingresos anuales.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program PagoDeImpuestos;
uses crt;

var ingresos_anuales, otros_impuestos, pago_de_impuestos, retencion, sueldo : real;
begin
    sueldo := 1500;
    ingresos_anuales := sueldo*12;
    retencion := ingresos_anuales*0.1;
    otros_impuestos := ingresos_anuales*0.15;
    pago_de_impuestos := retencion+otros_impuestos;
    writeln ('Valor de ingresos anuales: ', ingresos_anuales:0:6);
    writeln ('Valor de otros impuestos: ', otros_impuestos:0:6);
    writeln ('Valor de pago de impuestos: ', pago_de_impuestos:0:6);
    writeln ('Valor de retencion: ', retencion:0:6);
    writeln ('Valor de sueldo: ', sueldo:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.