Написать программку, которая определяет наименьшее естественное число с твореньем цифр одинаковым

var
nbsp;nbsp;n : longint;
nbsp;nbsp;i, j : integer;
nbsp;nbsp;a : array [2..9] of integer;
nbsp;nbsp;f1, f2 : text;
begin
nbsp;nbsp;assign(f1,input.txt); reset(f1);
nbsp;nbsp;assign(f2,output.txt); rewrite(f2);
nbsp;nbsp;read(f1,n);
nbsp;nbsp;for i:=2 to 9 do a[i]:=0;
nbsp;nbsp;for i:=9 downto 2 do
nbsp;nbsp;nbsp;nbsp;while n mod i=0 do
nbsp;nbsp;nbsp;nbsp;begin a[i]:=a[i]+1; n:=n div i end;
nbsp;nbsp;if ngt;1 then write(f2,0)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;else for i:=2 to 9 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;for j:=1 to a[i] do write(f2,i);
nbsp;nbsp;close(f2)
end.