maylart

Boa noite pessoal

estou montando um algoritmo para calcular valor de hora extra encima de um valor hora
só que quando executo o algoritmo enves dele ler a quantidade de horas que o funcionario fez
ele só soma e da o resultado tenho quase certeza que é a formula só que já quebrei a cabeça e
não consegui fazer ele calcular
segue abaixo o algoritmo que desenvolvi vale lembrar que eu gostaria de calcular as seguintes
porcentagem de 50% 60% 80% 100%

segue o algoritmo de 50%

var valor, porc, por50 :real;
begin
write ('Digite o valor da hora ' );
readln (valor);
write ('Digita hora a 50% ' );
readln (por50);
porc := valor*por50+valor ;
writeln (' ');
writeln('o valor total e : ' , porc :5:2);
readln;
end.

exemplo se roda-se certo colocariamo o valor da hora a R$5.00 aplicando 1 hora extra de 50% o resultado seria R$7,50
só que enves disso ele da R$ 6,00

alguem poderia me ajudar