Возраст

program Hello;
var a,b,c: integer;
begin
  read (a);
    if ((a mod 100 >= 5) and (a mod 100 <= 20)) then
        write ( ' вам ', a, ' лет ' )
    else
        case a mod 10 of
            1: write ( ' вам ', a, ' год ' );
            2..4: write ( ' вам ', a, ' года ' );
            5..9, 0:write ( ' вам ', a, ' лет ' )
        end;
end.