Решение уравнения sqrt(ax+b) = c - PascalABC.NET

Формулировка задачи:

надо решить уравнение sqrt(ax+b) = c написал код но как дальше делать не знаю помогите пожалуйста Код Pascal

program tyryr;
var a,b,c,d:real;
begin
read(a);
read(b);
read(c);
 
if c<0 then writeln('NO SOLUTION') else 
begin
d:=(c*c - b)/a;
 
write(d);
end;
end.

Условия Входные данные Вводятся три числа a, b и c, разделенные пробелами. Выходные данные Программа должна вывести все решения уравнения в порядке возрастания, либо NO SOLUTION (заглавными буквами), если решений нет. Если решений бесконечно много, вывести MANY SOLUTIONS.

Решение задачи: «Решение уравнения sqrt(ax+b) = c»

Листинг программы

d:=(c*c - b)/a;

Объяснение кода листинга программы

В данном коде на языке PascalABC.Net решается уравнение sqrt(ax+b) = c.
В первой строке кода переменной d присваивается значение выражения (c*c - b)/a.
Значение выражения (c*c - b)/a используется для вычисления дискриминанта.
Если значение выражения (c*c - b)/a больше нуля, то уравнение имеет два корня.
Если значение выражения (c*c - b)/a равно нулю, то уравнение имеет один корень.
Если значение выражения (c*c - b)/a меньше нуля, то уравнение не имеет корней в действительных числах.