Составить программу решения квадратного уравнения в системе паскаль

Предыдущий
вопрос Следующий
вопрос

program QuadraticEquationSolver;

var a, b, c, D, x1, x2: real;

begi
write('Enter the value of a: ')
readln(a);

write('Enter the value of b: ')
readln(b);

write('Enter the value of c: ')
readln(c);

D := bb - 4a*c;

if D > 0 the
begi
x1 := (-b + sqrt(D)) / (2a)
x2 := (-b - sqrt(D)) / (2a)
writeln('The roots are real and different: x1 = ', x1:0:2, ' and x2 = ', x2:0:2)
en
else if D = 0 the
begi
x1 := -b / (2a)
writeln('The roots are real and equal: x = ', x1:0:2)
en
els
begi
writeln('The roots are complex and different: x1 = ', -b/(2a):0:2, ' + ', sqrt(-D)/(2a):0:2, 'i and x2 = ', -b/(2a):0:2, ' - ', sqrt(-D)/(2*a):0:2, 'i')
end
end.