Программа на паскаль Формат входных данных: В единственной строке записано число N(1<=N<=10^9 Формат выходных данных: Выведите через пробел два натуральных числа, произведение которых даёт N. Гарантируется, что такие числа существуют. Примеры Вход / Выход 971715247 / 12437 7831

uses crt; var i,j,max:byte; a: array [1..100] of integer; buf:integer; BEGIN repeat write(' input number of elements '); readln(max); until max in [1..100];     writeln('input your demention');   for i:=1 to max do  begin   write('input a[', i, '] = ');    readln(a[i]);   end;    buf:=0;    write('the first sort: ');   for i:=max downto 1 do  for j:=2 to i do   if a[j]<a[j-1] then    begin     buf:=a[j];     a[j]:=a[j-1];     a[j-1]:=buf;     end;   for i:=1 to max do write(a[i]);    writeln;  write('the second sort : ');   for i:=max downto 1 do write(a[i],'  '); END.
С форума программистов , сортировка повсюду