program page30q8; uses wincrt;
var price, boxes, payment, amount, change : integer;
begin
  write('Unit price: ');
  readln(price);
  write('Number of boxes: ');
  readln(boxes);
  write('Payment: ');
  readln(payment);
  writeln;
  amount := price*boxes;
  change := payment-amount;
  writeln('Amount = ',amount);
  writeln('Change = ',change)
end.

program page30q9; uses wincrt;
var name : string;
    now, later : integer;
begin
  write('What is your name? ');
  readln(name);
  write('How old are you? ');
  readln(now);
  writeln;
  later := now+5;
  writeln(name,' is now ',now,' years old');
  writeln('He/She will be ',later,' five years later')
end.

program page30q10; uses wincrt;
var name : string;
    tickets, price, total : integer;
begin
  write('Name: ');
  readln(name);
  write('Number of tickets: ');
  readln(tickets);
  write('Unit price: ');
  readln(price);
  writeln;
  total := tickets*price;
  writeln('Dear ',name);
  writeln;
  writeln('Enclosed please find ',tickets,' tickets at $',price,' each.');
  writeln('Please send us a cheque for $',total,'.');
  writeln('ABC Company':43)
end.