Паскаль abc net составить программу решения a*x+b=c желательно короче

//PascalABC.NET 3.0
begin
  var a := ReadReal('a =');
  var b := ReadReal('b =');
  var c := ReadReal('c =');
  b -= c;
  if (a = 0) and (b = 0) then writeln('Уравнение имеет бесконченое множество корней')
  else if a = 0 then writeln('Уравнение не имеет корней')
  else writeln('Уравнение имеет один корень: ', -b / a);
end.