aX2+ bX + c = 0

Алг          КWYR    (вещ a.b,c,x1,x2,x, лит y)

арг         a.b,c

рез       x1,x2,x,y

Нач

Цел D

D:=b*b-4*a*c

   Если D>0 то y:=”Ур. имеет 2 корня”

X1:=(-b+√D)/2*a

X2:=(-b-√D)/2*a

  иначе y:=”Ур. не имеет  корней”

все

   Если D=0 то y:=”Ур. имеет 1 корень”

X:=(-b)/2*a

все

Кон