Написать программу для этого алгоритма. Срочно. 70 баллов.

var a, b, x: real;

begin

   writeln('ax + b = 0');

   write('Введите a: ');

   readln(a);

   write('Введите b: ');

   readln(b);

   if a <> 0 then

       x:=-b / a

   else

       if b <> 0 then

           writeln('Корней нет')

       else

           writeln('Любое число');

    writeln('x = ', x);

end.