Написать программу решения линейного уравнения y=ax+b

uses   crt;   var   a, b: real;   begin   writeln('Задайте параметры (a*x+b=0):');   write('A=');   readln(a);   write('B=');   readln(b);   writeln('X=', (-b / a));   readkey; end.