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

Решение квадратного уравнения на Паскале производится в несколько этапов:
1. ввести исходные данные (коэффициенты a, b, c)
2. вычислить дискриминант
3. вычислить корни квадратного уравнения

{ решение уравнения: A*x^2 + B*x + C = 0 }
program ex49_1;
uses
crt;
var
a,b,c,d,x: real;
begin
clrscr;
writeln('введите A');
readln(a);
writeln('введите B');
readln(b);
writeln('введите C');
readln(c);
d:=sqr(b)-4*a*c;
if d<0 then begin
writeln('действительных корней нет');
end else if d=0 then begin
x:=(-b)/2*a;
writeln('корень уравнения: ',x);
end else begin
x:=(-b+sqrt(d))/2*a;
writeln('1-й корень уравнения: ',x:5:5);
x:=(-b-sqrt(d))/2*a;
writeln('2-й корень уравнения: ',x:5:5);
end;
readln;
end.