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

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!procedure LineEquation(a,b:real; var x:real; var flag:integer);begin  if a=0 then flag:=b=0?-2:-1  else begin x:=-b/a; flag:=0 endend;begin  var a,b,x:real;  Write('Введите a,b: '); Read(a,b);  var flag:=1;  LineEquation(a,b,x,flag);  case flag of  0:Writeln('x=',x);  -1: Writeln('Решений нет')  else Writeln('Бесконечое множество решений')  endend.