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

//линейное уравнение от одной переменной вида ax+b=0 procedure 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 или 2? 1 введите коэффициент при х: а=3 введите свободный коэффициент b=9 x=-3 сколько переменных в уравнении - 1 или 2? 2 введите коэффициент при х: а=2 введите коэффициент при y: b=2 введите свободный коэффициент c=-4 сколько пар корней вы хотите получить? 3 введите x=0     y=2 введите x=2     y=0 введите x=-2     y=4

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   readseqinteger(10).where(t-> t.between(-5,           .average.println end. пример 38 -6 12 0 5 23 -32 4 11 2 5.66666666666667