Calcular porcentagem com todos os valores indefinidos

{Agora vamos ver o mesmo exemplo só que com todos os valores
definido pelo lojista}

program porcentagem;

var notebook, vendedor, imposto, preco_final: real;

begin
    write('Digite do notebook........=');
    readln(notebook);
    write('O valor do imposto........=');
    readln(imposto);
    write('Percentual do vendedor....=');
    readln(vendedor);
    vendedor :=(notebook /100) * vendedor;
    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.