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