program factor (input,output);

var
   i : integer4;
   num : integer4;

begin
  writeln('Maxint4 = ',MaxInt4);
  writeln('input number to factor');
  readln(num);
  i := 2;
  While i <= Trunc4(0.5 * num) do
   begin
     if (num MOD i) = 0 then
       write(i);
     i := i + 1;
   end;
end.

