Coeficiente de equação de segundo grau

Pessoal, o professor deu essa resposta como colher de chá...

Passou na lousa e copiamos a resposta... Por curiosidade eu joguei ela no viualG para compilar, mas não sei se tá certo...

OBS: o professor que respondeu na lousa... podem me dizer se está correta? por que pelo que eu faço,

sempre que atribuo valores para A, B e C o delta é menor que zero

algoritmo "semnome"
// Função : 17) Elabore um programa que peça os valores de A,B e C
// e calcule as raízes da seguinte equação do 2º grau Ax2 + Bx - C)= 0
// Autor : Professor Não eu rs
// Data : 25/3/2011
// Seção de Declarações
var
A,B,C,Delta,X1,X2: real
inicio
// Seção de Comandos
Escreva("Digite o coeficiente de A: ")
Leia(A)
Escreva("Digite o coeficiente de B: ")
Leia(B)
Escreva("Digite o coeficiente de C: ")
Leia(C)
Delta<-(b^2)-4AC
Se Delta>=0 entao
X1<-(-B+(Delta^(1/2)))/(2*A)
X2<-(-B-(Delta^)1/2)))-(2*A)
Escreva("O valor de X1 é: ",X1)
Escreva("O valor de X2 é: ",X2)
Senao
Escreva("Nao foi possível resolver, pois Delta<0")
fimse
fimalgoritmo