algoritmo "semnome"
// Função : ?
// Autor : PINKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK
// Data : 19/04/2011
// Seção de Declarações
var
a,b,c,delta,x1,x2:real
inicio
// Seção de Comandos
escreva("digite lum valaor para a")
leia(a)
escreva("digite lum valaor para b")
leia(b)
escreva("digite lum valaor para c")
leia(c)
se (a=0)  entao
escreva("nao eh uma eq do 2° grau")
senao
delta<-(b^2)-4*a*c
se (delta<0) entao
escreva("delta naum pode ser negativo")
senao
x1 <- (-b+raizq(delta))/(2*a)
x2 <- (-b-raizq(delta))/(2*a)
escreva("o valor de x1 eh:",x1)
escreva("o valor de x2 eh:",x2)
escreva("o valor de delta eh:",delta)
fimse
fimse

fimalgoritmo