Как написать программу для поиска корней квадратного уравнения на паскале?

Ниже решение задачи - код программы на Паскале.

program quadratic_equation;
var
a,b,c,d,x1,x2: real;
begin
// выводим сообщение с просьбой о вводе коэффициентов уравнения
writeln('Enter the coefficients of the quadratic equation: ');
// ждем ввода трех значений
readln(a,b,c);
// вычисляем дискриминант
d:=b*b-4*a*c;
if d>0 then
begin
// если дискриминант положительный, значит два корня
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
// выводим вычисленные корни
writeln('The equation has two roots:');
writeln('x1=', x1:4:1);
writeln('x2=', x2:4:1);
end
else
if d=0 then
// вычисляем и выводим единственный корень
writeln('The equation has only one root x=',-b/(2*a):4:1)
else
// уравнение не имеет корней
writeln('The equation has no roots');
readkey;
end.