ROTINA DA EQUAÇÃO DO 2o grau PELO SLOGOW
usuário insere valores de a,b e c e bernadete calcula 
as raízes x1 e x2 da equação, retornando aviso de inexistência
de raízes reais se delta < 0
=================================================

ap equa2g :a :b :c
coloque :b*:b-4*:a*:c "delta
se :delta<0 [rotule [não existe raízes reais] pare]
coloque (quoc -:b+raizq :delta 2*:a) "x1
coloque (quoc -:b-raizq :delta 2*:a) "x2
se :x1=:x2 [rotule (lista "x1 "= "x2 "= :x1) pare]
rotule (lista "x1 "= :x1 ", "x2 "= :x2)
fim


=================================================
solução da tarefa proposta pelo aluno Reginaldo
Parabéns!