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

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

Язнаю, что   это правильный ответ                                                                                                                                                                                                                

1)abs(x*x - 20) / cos(y) + 5*x*sqrt(y) 2) t : =1 if r > 10then r: =r+1; t: =8; a) при r=17 условие выполняется, значит r увеличится на единицу.команды не связаны операторными скобками (begin r: =r+1; t: =8; end),поэтому t: =8; выполнится безусловно.r=18;   t=8; б)при r = 9 условие не выполняется, поэтому значение r останется неизменным.r = 9;   t = 8; 3) for i: = - 10 to - 9 do begin k: =i; write(k); end.цикл for не выполнится ни разу. на экран не будет выведено ничего.цикл "for i: = a to b do" выполняется b-a+1 раз, при условии, что b> =a.в нём значение i меняется от a до b, с каждой итерацией прибавляется единица.цикл "for i: = a downto b do" выполнится a-b+1 раз, при условии, что a> =bв нём значение i тоже меняется от a до b, но с каждой итерацией от i отнимается единица.4)а)vara: integer; beginwrite('введите сумму покупок: '); readln(a); if a< 5 then write('скидка не предоставляется')else if (a> =5)and(a< 10) then write('скидка: 0.5%')        else if (a> =10)and(a< 20) then write('скидка: 2%')                  else write('скидка: 5%')end.б) var a,i: integer; begin for i: = 1 to 10 do begin write('введите сумму покупок: '); readln(a); if a< 5 then writeln('скидка не предоставляется') else if (a> =5)and(a< 10) then writeln('скидка: 0.5%')         else if (a> =10)and(a< 20) then writeln('скидка: 2%')                   else writeln('скидка: 5%') end end.