• Lenguaje

    Pascal

  • Descripción

    El IMSS desea determinar la pensión de los trabajadores considerando los años trabajados respecto al salario (>30=95%, >25 y <=29=85%, >20 y <=24=60%) Determine la pensión para el trabajador.

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
program PensionDelImss;
uses crt;

var anos_trabajados, pension, salario : real;
begin
    write ('Ingresa el valor de anos trabajados: ');
    readln (anos_trabajados);
    write ('Ingresa el valor de salario: ');
    readln (salario);
    pension := 0;
    if anos_trabajados>30 then
        begin
            pension := salario*0.95;
        end;
    if (anos_trabajados>25) and (anos_trabajados<=29) then
        begin
            pension := salario*0.85;
        end;
    if (anos_trabajados>20) and (anos_trabajados<=24) then
        begin
            pension := salario*0.6;
        end;
    writeln ('Valor de pension: ', pension:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.