Составить программу в паскале для решения квадратного уравнения 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.