program raices;
 
uses crt;
 
var
 
a,b,c:integer;
 
x1,x2:real;
 
 
 
begin
 
   x1:=0;
   x2:=0;
   gotoxy(30,1);writeln('-----------------------');
   gotoxy(30,2);writeln('      BIENVENIDO!      ');
   gotoxy(30,3);writeln('-----------------------'); 
   writeln('Ingrese los datos para sacar las racies a la ecuacion de segundo grado');
   writeln('de la forma ax^2+bx+c');
   writeln('');
   write('a = ');readln(a);
   write('b = ');readln(b);
   write('c = ');readln(c);
   if b*b-4*a*c >= 0 Then
      begin
	 x1:=(-b+sqrt(b*b-4*a*c))/2*a;
	 x2:=(-b-sqrt(b*b-4*a*c))/2*a;
	 clrscr;
	 write('Las raices son: ');
	 write('x1 = ',x1); 
	 write('');
	 write('x2 = ',x2);
      end
      else
      begin
	 clrscr;
	 write ('No hay raices:');
      end;
   readkey;
end.