14. Разработайте программу, которая запрашивает три строковые величины — взаимосвязанные прилагательное, существительное и глагол, а затем выводит все варианты фраз с использованием введённых слов.

Решение: Программа должна запросить у пользователя три слова: прилагательное, существительное и глагол. Затем программа должна вывести все возможные комбинации этих слов в виде фраз. pascal program PhraseGenerator; var adj, noun, verb: string; begin Write('Введите прилагательное: '); Readln(adj); Write('Введите существительное: '); Readln(noun); Write('Введите глагол: '); Readln(verb); Writeln('Варианты фраз:'); Writeln(adj, ' ', noun, ' ', verb, '.'); Writeln(adj, ' ', verb, ' ', noun, '.'); Writeln(noun, ' ', adj, ' ', verb, '.'); Writeln(noun, ' ', verb, ' ', adj, '.'); Writeln(verb, ' ', adj, ' ', noun, '.'); Writeln(verb, ' ', noun, ' ', adj, '.'); end. Пример работы программы: Ввод: Введите прилагательное: Красивый Введите существительное: Дом Введите глагол: Стоит Вывод: Варианты фраз: Красивый Дом Стоит. Красивый Стоит Дом. Дом Красивый Стоит. Дом Стоит Красивый. Стоит Красивый Дом. Стоит Дом Красивый. Разъяснение: * `program PhraseGenerator;` – объявление программы с именем `PhraseGenerator`. * `var adj, noun, verb: string;` – объявление трех строковых переменных для хранения прилагательного, существительного и глагола. * `Write('Введите прилагательное: ');` – вывод запроса на ввод прилагательного. * `Readln(adj);` – чтение введенного прилагательного в переменную `adj`. * Аналогичные действия выполняются для существительного и глагола. * `Writeln('Варианты фраз:');` – вывод заголовка. * `Writeln(adj, ' ', noun, ' ', verb, '.');` – вывод одного из вариантов фразы. Строки конкатенируются (соединяются) с помощью оператора `+`. В данном случае добавляются пробелы между словами и точка в конце предложения. * Аналогичные действия выполняются для всех остальных вариантов фраз.