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

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

+=

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

Program Question;

var

nameF, nameS, rels : string;

Begin

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

Readln (nameF);

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

Readln (nameS);

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

Readln (rels);

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

End