Решить квадратное уравнение через цикл - Pascal ABC

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

Решить квадратное уравнение, с помощью цикла. Промежутки - [-5,5] Шаг = 2

Решение задачи: «Решить квадратное уравнение через цикл»

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

uses
  crt;
var
  x1,a,b,c,x,e:real;
begin
  clrscr;
  randomize;
  a:=5;
  b:=-2;
  c:=1;
  if b*b-4*a*c<0 then
    writeln('Уравнение не имеет действительных корней.')
  else
    begin
      x1:=-5;
      repeat
        x:=a*x1*x1+b*x1+c;
        x1:=x1+2;
      until x1>5;
  write('Один из корней=',x:8:2);
 end;
 readln;
end.

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

В начале кода подключается библиотека crt, которая используется для работы с консолью.
Затем объявляются переменные x1, a, b, c, x и e типа real, то есть числа с плавающей точкой.
Строка clrscr очищает экран перед началом решения уравнения.
Строка randomize задает начальное значение для генератора случайных чисел.
Переменная a инициализируется значением 5.
Переменная b инициализируется значением -2.
Переменная c инициализируется значением 1.
С помощью условного оператора if проверяется, является ли дискриминант (bb-4a*c) отрицательным. Если это так, выводится сообщение о том, что уравнение не имеет действительных корней.
Если условие из предыдущего пункта не выполняется, начинается цикл, который будет выполняться до тех пор, пока x1 не станет больше 5.
Внутри цикла вычисляется значение переменной x, которое представляет собой корнь уравнения.
Значение x1 увеличивается на 2.
Выводится сообщение о том, что один из корней равен x.
Конец программы.
После выполнения всех действий программа завершается и пользователь может нажать любую клавишу для выхода из программы.