Ответ на вопрос
program WordConcatenation;var
word1, word2, phrase: string;
lengthPhrase: integer;begin
word1 := 'Информация';
word2 := 'Логика';phrase := word1 + ' ' + word2 + 'технологии';lengthPhrase := Length(phrase);writeln('Словосочетание: ', phrase);
writeln('Длина: ', lengthPhrase);
end.
Еще