Нужно написать программу на языке pascal.на вход подается 2 слова.и программа должна вывести буквы которые встречаются только в одном слове,но не в обоих например: есть слова процессор и информация. результат:п е ф м а я с н

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. Тестовое решение: Введите первое слово: процессор Введите второе слово: информация п я н м ф а е с и