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

программу надо написать в бэйсике

Var name, verb, abjective, noun, adverb: string;

begin

write ('Введите ваше имя: ') ;

readln (name) ;

write ('Хорошо, ', name, ', а теперь введите любое существительное: ') ;

readln (noun) ;

write ('А теперь прилагательное: ') ;

readln (abjective) ;

write (name, ', введите наречие: ') ;

readln (adverb) ;

write ('И последнее слово - глагол: ') ;

readln (verb) ;

writeln;

writeln (abjective, ' летом ', noun, ' ', adverb, ' ', verb, ' около речки.') ;

end.