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

Program question;   var namef, names, rels  : string; begin   write('введите   первое  имя:   ');   readln(namef);   write('введите   второе  имя:   ');   readln(names); write('введите   отношения: ');   readln(rels); writeln(namef, '+', names, '=', rels); end

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?

writeln('a[',i,']=',a[i]);

readln;

end.