СРОЧНО!!
Задание 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 -12x=0.650406504065041