PREÇO DO PRODUTO

program preco_do_produto;
uses crt;
var pp,pp1,d:real;

begin
    clrscr;
    writeln ('Digite Preco do Produto');
    readln (pp);
    d:=(pp*10/100);
    writeln ('O valor do desconto e: ',d);
    pp1:=(pp-d);
    writeln ('O valor com desconto e: ',pp1);
    readkey;
end.