Programa en Pascal

IMPUESTOS
Problema: En un país occidental, la estructura de impuestos es como sigue. A un ingreso de $30,000 o más le corresponde un impuesto de $6,000, a un ingreso mayor a $20,000 y menor a$30,000 le corresponde pagar $2,500 de impuesto y a un ingreso de hasta $20,000 le corresponde pagar un impuesto de 10%. Implementar la solución del problema en un programa en Pascal.

-Las tasas deimpuestos:
Un ingreso de $30000, le corresponde $6000
Un ingreso mayor a $20000 y menor a 30000, le corresponde $2500
Un ingreso de hasta $20000 le corresponde un impuesto de 10%Calcular el impuesto de 10%

Análisis:
1. Introducir datos reales a la computadora.
2. Utilizar una variable de tipo real para calcular el impuesto en %, y de igual forma utilizar variables de tiporeal para cada ingreso.


Pseudocódigo:
Inicio
Constante
Variables impuestos e ingresos.
Imprimir "Ingresar ingresos"
Leer Horas.
Impuesto=0
Si ingreso > impuesto entoncesImpuesto = (ingreso mensual)
Ingreso = ingreso del mes - Impuesto Imprimir "Tu impuesto al mes es: ", ingreso_mes,"Valor de Impuesto: ",
Impuesto, " El ingreso Neto es: ",impuesto.
sinoImprimir "Tu sueldo Neto es: ", sueldo_mes.
Fin.

Programa:
PROGRAM_IMPUESTOS;
USES CRT;
VAR sns:REAL;
VAR ingreso, impuesto:REAL;
VAR total:REAL;
VAR impuesto1, impuesto2,impuestos10%:REAL;
BEGIN
clrscr;
WRITELN ('Introduzca los datos del primer ingreso');
WRITELN ('');
WRITE ('Le corresponde el siguiente impuesto');
WRITELN (Considerarlo parael último ingreso.');
WRITELN ('');
WRITE ('Número ingresado: '); READLN (30000);
WRITE ('Segundo número ingresado: '); READLN (20000);


sns:=(número deingreso * 10%);

impuestos1:=0;
impuestos2:=sns - ((sns - 30000) * 0.30);
impuestos10%:=sns - ((sns - 20000) * 0.10);

IF sns 90 THEN
WRITELN ('El impuesto para el...