Calcular porcentagem e seus valores indefinidos

{Agora vamos ver o mesmo exemplo só que com o valor do notebook e do imposto
definido pelo lojista e a porcentagem de 5% do vendedor fixa}
__________________________________________________________________________________
program porcentagem_variavel;

var notebook, vendedor, imposto, preco_final: real;

begin
    write('Digite do notebook........=');
    readln(notebook);
    write('O valor do imposto........=');
    readln(imposto);
    vendedor :=(notebook * 5)/ 100;
    imposto :=(notebook / 100)* imposto;
    preco_final :=(notebook + vendedor + imposto);
    writeln('O valor do notebook........=',notebook:6:2);
    writeln('A porcentagem do vendedor..=',vendedor:6:2);
    writeln('O valor do do imposto..=',imposto:6:2);
    writeln('o valor final........=',preco_final:6:2);
    readln();

end.