Braian B Mendes

O programa n esta executando e eu queria q alguém me ajudasse a perceber e corrigir meu erro. segundo o programa o erro esta em writeln('delta='delta); . se existir mais erros por favor me informe Program Pzim ; var a,b,c,delta,x1,x2 : real; Begin write('neste programa sera usado para caucular equacoes de segundo grau'); writeln('digite o valor do x quadrado (a)'); readln(a); writeln('digite o vador de x (b)'); readln(b); writeln('digite o valor da variavel independednte (c)'); readln(c); delta:=b*b-4*a*c; writeln('delta='delta); x1:=(-b + (sqrt delta))/2*a; writeln('x1='x1); x2:=(-b - (sqrt delta))/2*a; writeln('x2='x2); End.