Algoritmo que calcule o desconto do salário

Elaborar um algoritmo que leia as quantidades de horas trabalhadas no mês, leia o valor das horas trabalhadas e calcule o salário efetuando um desconto de 27,5% caso o salário seja maior que R$1500,00

Pseudocódigo:

programa exercicio7
var
  salario, qtdh, vldh, desconto : real;
inicio
  leia qtdh;
  salario ← qtdh * vldh;
  se (salario > 1500) entao
    desconto ← salario * (27,5/100);
    salario ← salario - desconto;
    escreva ("O desconto = ", desconto);
  senao
    escreva ("O salario = ", salario);
  fim_se;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 25/03/2010
Program exercicio7;
 uses crt;
 var
 salario, qtdh, vldh, desconto : real;
 Begin
 writeln('Insira a quantidade de horas trabalhadas');
 readln(qtdh);
 writeln('Insira o valor das horas trabalhadas');
 readln(vldh); 
 salario := (qtdh * vldh);
 	if (salario > 1500) then
 	  begin
 	     desconto := salario * (27.5/100);
 	     salario := salario - desconto;
 	     writeln('O desconto =', 'R$ ',desconto:7:2);
 	  end
 	  else
 	    	writeln('O salario =', 'R$ ',salario:7:2);
 writeln('Pressione para fechar');
 readkey;  
End.