ap delta :a :b :c
coloque (:b*:b)-4*:a*:c "delta
se :delta<0 [rotule [o delta deu negativo, portanto não existe raízes reais]] [rotule (lista "delta "= :delta)]
fim