Что надо делать там вапросы ???
T = n mod 10; if (n mod t = 0) then writeln(t);
t = n div 10 mod 10; if (n mod t = 0) then writeln(t);
t = n div 100 mod 10; if (n mod t = 0) then writeln(t);
t = n div 1000 mod 10; if (n mod t = 0) then writeln(t);
1. 27-1 = 26 (2)
2. 26:2 = 13 (1)
3. 13-1 = 12 (2)
4. 12:2 = 6 (1)
5. 6:2 = 3 (1)
Ответ: 21211