Custo de fábrica de um carro

{O custo ao consumidor de um carro novo e a soma do custo de fabrica
com a percentagem do distribuidor e dos impostos (aplicados ao custo de
fabrica). Supondo que a percentagem do distribuidor seja de 28% e os
impostos de 45%, escrever um programa que leia o custo de fabrica de um carro
e escreva o custo ao consumidor.}

Uses CRT;
Var CustoFab, PorcDist, Imposto, CustoCons: Real;

Begin
    Clrscr;
    Writeln('Informe o custo de fabrica, (Ex: R$ 15000.00): ');
    Read(CustoFab);
    Writeln('28% para o Distribuidor e de 45% de Imposto');
    CustoCons := CustoFab + (CustoFab*0.28) + (CustoFab*0.45);
    Writeln('O custo para o consumidor, R$ ', CustoCons:10:2);
    Readkey;
End.