preço de fábrica com impostos

Program carro_fab ;
var
pfa, pfi: real;

Begin
write ('Entre com o preço de fábrica: ');
readln (pfa);
pfi:= pfa + pfa * 0.28 + pfa * 0.45;
write ('O preço final é: ', pfi:6:2);

End.