Pascal :

program ex;
var a:integer;
begin
 readln(a);
 while a<>0 do
  begin
   if a>10 then writeln('Y')
   else writeln('N');
   readln(a);
  end;
end.