1. напишите процедуру, которая выводит на экран фразу «я люблю паскаль» заданное в ее параметре количество раз. 2. напишите процедуру, которая выводит на экран решение линейного уравнения ax + b = 0. параметры а и b являются
параметрами процедуры.

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! procedure love(n: integer); begin   writeln(n*('я люблю паскаль'+newline)) end; begin   love(readinteger('n=')) end. пример n= 5 я люблю паскаль я люблю паскаль я люблю паскаль я люблю паскаль я люблю паскаль // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! procedure linequ(a,b: real); begin   if a=0 then       if b=0 then writeln('решений бесконечно много')       else writeln('решений нет')   else writeln('x=',-b/a) end; begin   var a,b: real;   write('введите а и b: '); read(a,b);   linequ(a,b) end. пример введите а и b: 18.45 -12 x=0.650406504065041

Ответ под номером 2:
Цикл бесконечный

Запиши нормально задание 

Ровно если 15 то помоему 14