var i,j:integer;
l,k,p,m:int64;

begin

  read(k);
  p:=0;
  l:=2;
    while l<100000000 do begin
      if k mod (l+1)=0 then begin
        write(L);
        halt;
      end else inc(l);
    end;
 write(0);

end.

Edited by author 05.05.2011 20:04

Edited by author 05.05.2011 20:04

"l<100000000"
Indeed, why?