program ifthen;
uses crt;

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

This program will ask for the user's age and then print out a predetermined
response depending.
                        by 

--------------------------------------------------------------------------}


VAR  age,n:integer;

begin

clrscr;
write ('Hello. How old are you? --->  ');
readln (age);
writeln;
if (age < 0) or (age > 120) then
begin
writeln ('liar!!');
n := 1;
end;

if n <> 1 then
begin
if age < 30 then
writeln ('You''re still young.')
else
writeln ('You''re pretty old!');
end;
readln;


end.