Запросите и введите с клавиатуры имя пользователя, имя его друга (подруги) и суть отношений между ними (дружба, любовь).

Напечатайте на экране:

+=

помогите на паскале

Program Question;

var

nameF, nameS, rels : string;

Begin

Write ('Введите первое имя: ') ;

Readln (nameF) ;

Write ('Введите второе имя: ') ;

Readln (nameS) ;

Write ('Введите отношения: ') ;

Readln (rels) ;

Writeln (nameF, '+', nameS, '=', rels) ;

End