Algoritmo para Calcular Raiz de uma Equação do 2º grau

Construa um algoritmo para calcular x1 e x2 de uma equação do 2º grau, sendo que os valores de A, B e C serão fornecidos pelo usuário e verifique a existência de raízes válidas

Pseudocódigo:

programa exercicio3
var
  a, b, c, delta, x1, x2 : real;
inicio
   leia a;
   leia b;
   leia c;
   delta ← (b ** 2) - 4 * a * c; 
   se (delta >= 0) entao
     x1 ← (-b + (delta // 2)) / 2*a; 
     x2 ← (-b - (delta // 2)) / 2*a; 
     escreva x1;
     escreva x2
   senao
	escreva "Delta está negativo";
   fim_se;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 25/03/2010
Program exercicio3 ;
 uses crt;
 var
 a, b, c, delta, x1, x2 : real; 
 Begin
 writeln('Insira o valor de 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;
 	if (delta >=0) then
 	 begin
 	  x1 := (-b+(sqrt(delta)))/2*a;
 	  writeln('X1 = ', x1:5:0);
 	  x2 := (-b-(sqrt(delta)))/2*a;
 	  writeln('X2 = ', x2:5:0);
 	 end
 	else
 	  writeln('Delta esta negativo'); 	
 writeln('Pressione para fechar');
 readkey;  
End.