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

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