program SALARIO;
var
HT, VH, PD, TD, SB, SL : real;
begin
writeln('Quantas horas de trabalho? ');
readln(HT);
writeln('Qual o valor da hora? ');
readln(VH);
writeln('Qual o percentual de desconto? ');
readln(PD);
SB := HT * VH;
TD := (PD/100) * SB;
SL := SB - TD;
writeln('Salário Bruto ...: ', SB:7:2);
writeln('Desconto.........: ', TD:7:2);
writeln('Salário Liquido..: ', SL:7:2);
end.