A as real

B as real

C as real

D as real 

x1 as real

x2 as real 
Read (a, b, c)

D = b^2-4*a*c

if D<0 

Write "НЕТ КОРНЕЙ"

Else x1=(-b+sqrt(D))/2*a , x2=(-b-sqrt(D))/2*a  

Write (x1,x2);