program jjj;
uses crt;
   var d,m,g:integer;
BEGIN
clrscr;
       writeln('vvedite chislo vachigo roghdeniau');
readln(d);
   writeln('vvedute necuz');
readln(m);
   writeln('vvedite god');
readln(g);
   if ((d>18) and (m>=12)) and
   (( 2009-g)>16) then writeln('vam ect 16') else writeln('vam net 16') ;
   readln;
END.