(*      Teresa Tong F.4AS [30]  28/9/2001      *)
(* to find out the user's age five years later *)

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

-----------------------------------------------------------------------
e.g
What is your name?                               Tom
How old are you?                                16

Tom is now 16 years old
He/She will be 21 five years later