Составить программу в паскале для решения квадратного уравнения ax^2+bx+c=0

Var  a,b,c,d:real;Begin  write('Введите коэффициенты уравнения (a, b, c): ');  Readln(a,b,c);  d:=sqr(b)-4*a*c;  if d>0 then Begin    write('X1 = ',((-b)+sqrt(d))/(2*a),' | ');    write('X2 = ',((-b)-sqrt(d))/(2*a));  end else if d = 0 then write('X = ',(-b)/(2*a)) else write('Корней нет');End.