Exercício 04 Estrutura de Seleção 2 - Pascal

4) Uma empresa deseja dar um aumento de 30% aos funcionários com salários inferiores a R$
500,00. Faça um programa que recebe o salário do funcionário e mostre o valor do salário
reajustado ou uma mensagem caso o funcionário não tenha direito ao aumento.

Program Cond04 ;
var
salario,sal_final: real;
 Begin
  Write('Informe Salario: ');
  readln(salario);
   if (salario < 500) then
    Begin
     sal_final := salario + (salario*30/100);
     Writeln('Salario Final: ',sal_final:0:2);  
    end 
   else
    Writeln('Nao Tem Direito ao Aumento');   
 End.

Categories: Pascal , Programação