Algoritmo que Calcule o Salário e o Total de Desconto

Elaborar um algoritmo que leia as quantidades de horas trabalhadas no mês, leia o percentual de desconto, calcule e exiba:

O Salário Bruto;
O Total de Desconto;
O Salário Liquido.

Pseudocódigo:

programa exercicio22
var
   qh, vt, pdesc, sb, sl, tdesc : real;
inicio
   leia qh;
   leia vh;
   leia pdesc;
   sb ← qh * vh;
   tdesc ← sb * (pdesc / 100);
   sl ← sb - tdesc;
 escreva sb;
 escreva tdesc;
 escreva sl;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 10/03/2010
program exercicio22;
uses crt;
var qh, vh, pdesc, tdesc, sb, sl:real;
begin
writeln('Digite a Quantidade de Horas Trabalhadas');
readln(qh);
writeln('Digite o Valor das Horas');
readln(vh);
writeln('Digite o Percentual de Desconto');
readln(pdesc);
sb := qh*vh;
tdesc := sb*(pdesc/100);
sl := sb-tdesc;
writeln('Salario Bruto = ', 'R$', sb:7:2);
writeln('Total de Desconto = ', 'R$', tdesc:7:2);
writeln('Salario Liquido = ', 'R$', sl:7:2);
writeln('Pressione para fechar');
readkey;
end.