Шифр, Freepascal Опции

[Length]

В звязку с тем, что фермеры Диетенко и Вампиров много занимались вычислениями, они очень любили разные числовые головоломки. Особенно любили обмениваться шифрованными сообщениями электронной почтой. Ключ к шифру нужно было вычислить как можно быстрее, потому что сообщение сохранялось в почтовом ящике лишь два дня. Однажды фермер Диетенко прислал фермеру Вампирову дежурную шифровку и некоторое целое число N. Ключом к шифру было менее всего положительное целое число, произведение цифр которого равняется N. Помогите фермеру Вампирову прочитать сообщение. Входные данные: в текстовом файле Z1.dat содержится число N (0<=N<=2147483647) Выходные даны: в текстовый файл Z1.sol записать искомое целое число или 0, если такого числа нет.

[Гость]

Если чесно я сам еще не собразил думал што вы мне поможите ее сообразить вообще ничего не получаетса я пробувал всякое што мне приходило в голову...Если сможете помогите или хотябы подкиньте идейку как мне ее зделать?
var n,x,i:longint;
begin
readln(n);
for i:=2 to n-1 do
if (n mod i)=0 then x:=i;
writeln(n/x,' ',x);
end.