I compile my solution on my computer and it passes all my tests. But there it can't be compiled I usually get CE
Here is my solution

var a:array[1..1000]of integer;
    n,i,j:longint;
begin read(n);
      if (n=1) then begin write(1); halt(0); end;
      if (n=0) then begin write(10); halt(0); end;
      while n<>1 do
      begin
           for i:=9 downto 1 do
               if n mod i=0 then
                  begin inc(j);
                        a[j]:=i;
                        n:=n div i;
                        i:=9;
                  end;
           if n>1 then
              begin
                    write(-1);
                    halt(0);
              end;
      end;
      for i:=j downto 1 do write(a[i]);
end.

Edited by author 12.03.2007 22:25