Program hren; uses crt; var a:integer; BEGIN writeln ('How old are you?'); read(a); a:=60-a; writeln ('years you have ',a); END.