Решите алгоритм по информатике (вложения) (с решением)

Pascalabc.net var   sc1,sc2: set of char;   s1,s2: string;   c: char;   i: integer; begin   write('введите первое слово: '); readln(s1);   write('введите второе слово: '); readln(s2);   sc1: =[]; sc2: =[];   for i: =1 to length(s1) do include(sc1,s1[i]);   for i: =1 to length(s2) do include(sc2,s2[i]);   foreach c in sc1+sc2-(sc1*sc2) do write(c,' ') end. тестовое решение: введите первое слово: процессор введите второе слово: информация п я н м ф а е с и

Второй игрок выиграет первым ходом в том случае, если первый прибавит ко второй куче   3 или умножит её содержимое на 3, иначе говоря станет больше 7, что предвещает победу на 2-ом ходе игрока №2. следовательно первый игрок так не пойдёт. остаётся 2 варинта безошибочных ходов для игрока №1, это прибавить к первой куче 3 или умножить её содержимое на 3, тем самым не дать выиграть оппоненту на 2-ом ходе, и при таком действии №2 не сможет совершить ход, после которого №1 не смог бы превзойти 22. 1; 3 > №1  3; 4 > №2 9; 4 или 6; 4 или 3; 7 или 3; 12 --> №1 побеждает при умножении сорержимого  кучи с большим числом камней на 3 1; 3 > №1 4; 4 > №2 7; 4 или  12; 4 или  4; 7 или 4; 12 аналогично следующий ход №1 будет выигрышным