program comptax;
uses crt;

{--------------------------------------------------------------------------

program description

This program will ask the user for a bill amount and then compute the
tax & total amount for a fixed tax rate.
--------------------------------------------------------------------------}

CONST     taxrate = 0.0825;

VAR bill:real;
tax:real;
total:real;
name:string;

begin

clrscr;

{----------INPUT SECTION-------------------------------------}

write ('Hello, what''s your name?  --->  ')  ;
readln (name);

writeln;

writeln ('So, ',name,', what is the amount of your bill,');
write ('not including the dollar sign? --->  ')   ;
readln (bill);

{----------OUTPUT SECTION------------------------------------}

writeln;
writeln;

tax := bill * taxrate     ;
total := tax + bill   ;

writeln ('---------------------------------')     ;

writeln;
writeln ('YOUR BILL IS   $',bill:0:2);

writeln;

writeln;
writeln ('YOUR TAX IS    $',tax:0:2) ;

writeln;

writeln ('=================================')  ;
writeln;
writeln ('YOUR TOTAL IS  $',total:0:2) ;

writeln;
writeln ('---------------------------------')   ;
readln;

end.