Напишите дружественную по отношению к пользователю программу. Пусть она обращается к вам по имени, а затем предложит последовательно ввести прилагательное, существительное, наречие и глагол, чтобы в результате вывести на экран несложную фразу с использованием введенных слов.
программу надо написать в бэйсике

var name, verb, abjective, noun, adverb: string;beginwrite('Введите ваше имя: ');readln(name);write('Хорошо, ', name, ', а теперь введите любое существительное: ');readln(noun);write('А теперь прилагательное: ');readln(abjective);write(name, ', введите наречие: ');readln(adverb);write('И последнее слово - глагол: ');readln(verb);writeln;writeln(abjective, ' летом ', noun, ' ', adverb, ' ', verb, ' около речки.' );end.