Дискриминант на языке паскаль​

Pascal

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

2.begin

3.writeln('введите коэффициенты уровнения a,b,c');

4.D:=sqr(b)-(4*a*c);

5.read (a,b,c);

6.if (D > 0) then

7.x1:=-b+sqrt(D)/(2*a);

8.x2:=-b-sqrt(D)/(2*a);

9.Writeln('x1:=',x1);

10.Writeln('x2:=',x2);

11.end.