Algoritmo para Calcular Equação do 2º Grau

Construa um algoritmo para calcular X1 e X2 de uma equação do 2º grau, sendo que os valores A, B e C serão fornecidos pelo usuário

Pseudocódigo:

programa exercicio5
var
   a, b, c, delta, x1, x2 : real;
inicio
   leia a;
   leia b;
   leia c;
   delta ← (b ** 2) - 4 * a * c;
   x1 ← (-b + (delta //2)) / 2*a; 
   x2 ← (-b - (delta //2)) / 2*a; 
 escreva x1;
 escreva x2;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 03/03/2010
Program exercicio5 ;
 uses crt;
 var
 a, b, c, delta, x1, x2 : real; 
 Begin
 writeln('Insira A. OBS: diferente de 0');
 readln(a);
 writeln('Insira B');
 readln(b);
 writeln('Insira C');
 readln(c); 
 delta := exp(b*ln(2))-4*a*c;
 x1 := (-b+(sqrt(delta)))/2*a;
 writeln('X1 = ', x1:5:0);
 x2 := (-b-(sqrt(delta)))/2*a;
 writeln('X2 = ', x2:5:0); 
 writeln('Pressione para fechar');
 readkey;  
End.

Nota: