program island; VAR f1,f2:text; n:longint; s:string; begin assign(f1,'island.in'); assign(f2,'island.out'); reset(f1);rewrite(f2); writeln(f2,'no'); close(f1);close(f2); end.