Exemplo Equação 2grau.

Program Eq2grau ;

Var a, b, c :integer;
delta, x1, x2 :real;

Begin
write('Insira o valor de A:');
readln(a);
write('Insira o valor de B:');
readln(b);
write('Insira o valor de C:');
readln(c);
if(a>0) then
begin
delta:=((sqr(b))-(4*a*c));
x1:=(-b+sqrt(delta)/(2*a));
x2:=((b-(2*b))-sqrt(delta)/(2*a));
writeln('A equacao possui duas raizes reais e distintas, são elas: X´:',x1 , 'e X´´:',x2);
end
else
begin
if(a=0) then
begin
delta:=((sqr(b))-(4*a*c));
x1:=(-b+sqrt(delta)/(2*a));
writeln('A equacao possui apenas uma raiz real, X:', x1);
end
else
writeln('A equacao naum possui raizes reais');
end;
End.