program task3;
var
a, b, str: string;
i: integer;

begin

writeln ('Введите слово ');
readln(str);
writeln ('Введите слог 1 из 2 букв');
readln(a);
writeln ('Введите слоги 2 из 2 букв');
readln(b);

writeln('возможные слова из заданных слогов: ', a + b, ', ', b + a);

if (a + b = str) then writeln('Нашло совпадение с заданным словом: ', str) else writeln('Нет совпаденей с заданным словом');


end.