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