(*            Teresa Tong  F.4AS [30]  28/9/2001            *)
(*  Write a note using the given ticket no. and unit price  *)

program bill;
uses wincrt;
var name : string; ticket_num : integer; total, unit_price : real;
begin
writeln('Please enter the name of the customer :');
readln(name);
writeln('Please enter the no. of the ticket :');
readln(ticket_num);
writeln('Please enter the unit price :');
readln(unit_price);
writeln;
writeln('Dear ', name);
writeln('Enclosed please find ', ticket_num, ' tickets at $ ', unit_price:8:2, ' each. ');
writeln('Please send us a cheque for $ ',ticket_num * unit_price:8:2, '. ');
writeln;
writeln('                                        ABC Company ');
end.

-----------------------------------------------------------------------------------
e.g.
Please enter the name of the customer :
DEF
Please enter the no. of the ticket :
5
Please enter the unit price :
50

Dear DEF
Enclosed please find 5 tickets at $ 50.00 each.
Please send us a cheque for $ 250.00.
                                          
                                            ABC Company

    Source: geocities.com/ttt_7_ttt/home6

               ( geocities.com/ttt_7_ttt)