Algoritmo visualg que calcula equação do 2º grau

Algoritmo em visualg portugol que calcula equação do segundo grau utilizando a linguagem portugol.

algoritmo "semnome"
// Função :
// Autor : Douglas Boza
// Data : 22/08/2012
// Seção de Declarações
var
a,b,c,d,f,g:real
inicio
// Seção de Comandos
escreval ("Deixe a equação da seguinte forma ax²- bx + cx = 0")
escreva ("Valor a: ")
leia (a)
escreva ("Valor b: ")
leia (b)
escreva ("Valor c: ")
leia (c)
d := ((b*b)-(4*a*c))
se (d>=0) entao
escreval ("Resposta x1",(-b+(RaizQ(d)))/2*a)
escreval ("Resposta x2",(-b-(RaizQ(d)))/2*a)
senao
escreval ("Equação sem resposta, pois delta é menor que zero")
fimse
Escreval ("___Software criado por Douglas Boza___")
fimalgoritmo