Program SALARIO;
VAR HT,VH,PD,SB,SL,TB,R:REAL;
Begin
WRITELN('INFORME O NUMERO DE HORAS DE TRABALHO MENSAIS');
READLN(HT);
WRITELN('INFORME O VALOR DA HORA TRABALHADA');
READLN(VH);
WRITELN('ENTRE COM O DESCONTO');
READLN(PD);
SB:=(HT*VH);
WRITELN('SEU SALARIO BRUTO É ', SB);
end
0 comentários:
Postar um comentário