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

Program kwur;

Uses CRT;

Var a, b, c, d, x1, x1: real;

Begin

Clrscr;

Write ('введите коэффициенты уравнения a, b, c') ; 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 ('x1=', x1' x2=', x2)

END;

Else writeln ('действительных корней нет') ;

End.