Напишите процедуру, которая выводит на экран решение линейного алгебраического уравнения . Параметры и являются параметрами процедуры.

Надеюсь, я правильно понимаю суть задания. Если что, извиняйте.... Пишите, что не так, переделаю

Спасибо Вам большое! Побольше бы таких.

Не за что) Рада помочь.

//Линейное уравнение от одной переменной вида ax+b=0procedure lin1(a,b: real; var x: real);  begin    x:=-b/a;  end;//Линейное уравнение двух переменных вида ax+by+c=0//имеет бесконечное множество решений (корней)procedure lin2(a,b,c: real);  var x,y: real;   n,i: integer;  begin    write ('Сколько пар корней вы хотите получить? ');    readln (n);    for i:=1 to n do begin      write ('Введите x=');      read (x);      y:=(-c-a*x)/b;      writeln ('   y=',y);    end;  end;  var  a,b,c,x,y: real;  n: integer;begin  write ('Сколько переменных в уравнении - 1 или 2? ');  readln (n);  if n=1     then begin      write ('Введите коэффициент при х: а=');      readln (a);      write ('Введите свободный коэффициент b=');      readln (b);      lin1(a,b,x);      writeln ('x=',x);    end    else begin      write ('Введите коэффициент при х: а=');      readln (a);      write ('Введите коэффициент при y: b=');      readln (b);      write ('Введите свободный коэффициент c=');      readln (c);      lin2(a,b,c);    end;end.--------------пример 1------------------Сколько переменных в уравнении - 1 или 2? 1Введите коэффициент при х: а=3Введите свободный коэффициент b=9x=-3--------------пример 2-------------------Сколько переменных в уравнении - 1 или 2? 2Введите коэффициент при х: а=2Введите коэффициент при y: b=2Введите свободный коэффициент c=-4Сколько пар корней вы хотите получить? 3Введите x=0   y=2Введите x=2   y=0Введите x=-2   y=4----------------------------------------------