Postagens
Male
var valor, porc :real;
begin
write ('Digite o valor da hora ' );
readln (valor);
porc := ((valor*50) / 100.00)+valor ;
writeln('o valor total com 50% : ' , porc :0:2);
porc := ((valor*60) / 100.00)+valor ;
writeln('o valor total com 60% : ' , porc :0:2);
porc := ((valor*80) / 100.00)+valor ;
writeln('o valor total com 80% : ' , porc :0:2);
porc := ((valor*100) / 100.00)+valor ;
writeln('o valor total com 100% : ' , porc :0:2);
readln;
end.
