В приложениях находятся два варианта решения.
1) Перебираем все числа от 1 до x и проверяем остаток от деления x на очередное число. Простой и понятный алгоритм.
2) Перебираем все числа от 1 до корня из x и проверяем остаток от деления. Если x делится на такое число d без остатка, мы выводим d и x/d. Работает быстрее, чем (1).
Основная формула в таблице имеет вид:
=($A5*B$4+$A5)+A$5*B$4
Полное решение - в прилагаемом файле.
Uses crt;
var s,s1,s2:string;
i,k:integer;
begin
readln(s);
k:=pos(' ',s)-1;
for i:=1 to k do
s1:=s1+s[i];
k:=k+2;
for i:=k to length(s) do
s2:=s2+s[i];
writeln(s2,' ',s1);
end.