%Age displaying

%Variables
var name, currentdate : string
var day, month, year, age: int

%Input
put "Please Enter your name"
get name : *
put "Please Enter your date of birth(DD MM YYYY)with spaces"
get day
get month
get year

%if/else
if day > 0 and day < 32 then
else
    put "Invalid day"
end if

if month > 0 and month < 13 then
else
    put "Invalid month"
end if

%Calculate
currentdate := Time.Date
put currentdate

%Age displaying

%Variables
var name : string
var day, cday, month, cmonth, year, cyear, age : int

%Set current day
cday := 19
cmonth := 03
cyear := 2007

%Statements
age := 0

%Input
put "Please Enter your name"
get name : *
put "Please Enter your date of birth(DD MM YYYY)with spaces"
get day
get month
get year

%if/else
if day > 0 and day < 32 then
else
    put "Invalid day"
end if

if month > 0 and month < 13 then
else
    put "Invalid month"
end if
if month > cmonth then
    age := age - 1
elsif day > cday and age not= -1 then
    age := age - 1
else
    put "Error please try agian later"
end if

%Calculate
age := (cyear + age) - year

%if/else
if age < 0 then
    put name," You are ", age, " and you are not yet born"
elsif age > 15 and age < 16 then
    put name," You are ", age, " and you can get your G1"
elsif age > 16 and age < 18 then
    put name," You are ", age, " and you can get your G1 then G2"
elsif age > 18 then
    put name," You are ", age, " and you can get your G1, and G2 and vote"
else
    put name," You are ", age, " and you are not old enough yet to drive or vote"
end if