How do you write a Pascal program that reads a sum of money written in the form SSS.SS, increases it by 18%, and prints out the original and increased sums?

Answer 1

Program SalesTax (input,output);

const sales_tax = 0.18;

var inputAmount : real;

outputAmount : real;

begin

write(' Please input the amount :>');

readln(inputAmount);

outputAmount := inputAmount * (1 + sales_tax);

writeln(' The original amount = ',inputAmount:8:2);

writeln(' With sales tax that is ',outputAmount:8:2);

writeln(' The sales tax amount is a difference of ',outputAmount-inputAmount:8:2);

end.