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

Question

Запросите и введите с клавиатуры имя пользователя, имя его друга(подруги) и суть отношений между ними(дружба, любовь).
Напечатайте на экране:
<имя 1>+<имя 2>=<отношения>
помогите на паскале

Answer 1

Program Question;
 var
nameF, nameS, rels :string;
Begin
 Write('Введите  первое имя: ');
 Readln(nameF);
 Write('Введите  второе имя: ');
 Readln(nameS);
Write('Введите  отношения: ');
 Readln(rels);
Writeln(nameF, '+', nameS, '=', rels);
End