Calcular porcentagem e seus valores predefinida.

Comprei vários notebook para revender em minha loja, porém tenho que pagar 40% sobre o valor da fábrica e pagar 5% ao vendedor, quero um programa que determine o valor que o notebook saiu para mim.
__________________________________________________________________________________

program porcentagem;

var notebook, vendedor, imposto, preco_final: real;

begin
    notebook := 1200;
    vendedor :=(1200 * 5)/ 100;
    imposto :=(1200 * 40)/100;
    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.