Парни йа запутался,так верно йа так понял

Program Sqrt1;
Var A, B, C, D, X1, X2 : Real;
Begin
Writeln ('Vvedite koificenti kvodratnogo uravnenia ');
Readln (A,B,C);
D:=B*B-4*A*C;
if A<>0 then Begin
If D<0 Then Writeln ('Kornei net! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
If X1<>X2 then
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
else Writeln (' Koren ODIN ','X=',X2:8:3)
End;
End
else
Writeln('Reshenii net');
Readln;
End.


"

? =) да?

Да так верно