program WordConcatenation;

var
word1, word2, phrase: string;
lengthPhrase: integer;

begin
word1 := 'Информация';
word2 := 'Логика';

phrase := word1 + ' ' + word2 + 'технологии';

lengthPhrase := Length(phrase);

writeln('Словосочетание: ', phrase);
writeln('Длина: ', lengthPhrase);
end.