Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  cal
Language: PASCAL
Code:
Program REAJUSTE_SALARIO;

    Uses
      Crt;

    Const
      IND = 0.20;

    Var
      SAL_ATUAL
      SAL_NOVO
      AUMENTO : Real;

Begin

    Clrscr;
 
      write ('Digite o salario atual : ');
      readln (SAL_ATUAL);

    AUMENTO := SAL_ATUAL * IND;
    SAL_NOVO := SAL_ATUAL + AUMENTO;
 
    writeln('Novo Salario = ',SAL_NOVO:10:2);

    readkey;

End.
Comments: