program Project2; {$APPTYPE CONSOLE} uses SysUtils; const k=12; l=12; var n,s,s1,i:integer;x,y:text; q:string; begin { TODO -oUser -cConsole Main : Insert code here } assign(x,'mathes.in'); assign(y,'mathes.out'); reset(x); read(x,n); s:=0; for i:=1 to k do s1:=s+1 ; n:=s1*l; if (n<=1000000000) then q:=('yas'); if (n >1000000000) then q:=('no'); rewrite(y); write(y,q); close(x); close(y); end.