program Task1;
var
  N, I, NProst: Integer;
begin
  Write ('N=');
  ReadLn (N);
  for I := 2 to N-1 do
    begin
      if (N mod I) = 0
      then begin
             Inc (NProst);
             Write (I, ' ');
           end;
    end;
  WriteLn;
  WriteLn ('Chislo: ', NProst);
  ReadLn;
end.