Вычислить значение выражения - Turbo Pascal (33676)

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

ax²+bx>=0

Решение задачи: «Вычислить значение выражения»

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

uses crt;
var a,b,x1,x2,x,d:real;
begin clrscr;
repeat
Writeln('a=');read(a);until (a<>0);
repeat
Writeln('b=');read(b);until (b<>0);
x1:=0;x2:=-(b/a);
x:=1;
d:=a*sqr(x)+b*x;
if x2>x1 then
if d<0 then writeln('x=[',x2,'..',x1,']')
else begin writeln('"bs"-eto beskonechnost');writeln('x=(-bs..',x2,'] i [0..bs)');end
else
if d<0 then writeln('x=[',x1,' ..',x2,']')
else begin writeln('"bs"-eto beskonechnost');
writeln('x=(-bs..0] i [',x2,'..bs)');end;
readln;readln;readln;end.

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

В первой части кода считываются значения переменных a и b с помощью функции read().
Затем переменные x1 и x2 инициализируются как 0 и -(b/a) соответственно.
Переменная x инициализируется как 1.
Функция sqr(x) вычисляет квадрат числа x.
Переменная d инициализируется как произведение a и квадрата x, а также как произведение b и x.
Следующий блок if проверяет, если x2 больше x1, и d меньше нуля.
Если условие истинно, то выводится диапазон значений x2 и x1.
Если условие ложно, то выводится сообщение bs`-eto beskonechnost и диапазон значений -bs..0] и [',x2,'..bs).
Код повторяется до тех пор, пока a и b не станут равными нулю.
В конце кода выводятся сообщения readln;readln;readln;.