program Project1;
 var

   a,b,c,delta,x1,x2,root:real;
   //denklem:integer;
   //delta eklenecek, x1 ve x2 eklenecek
   //delta=b^2-4ac
   //kökler (-b+-kökdelta)/2a
   //delta <0 ise reel kök yok
         //=0 ise kökler aynı
         //>0 ise iki farklı reel kök vardır
begin
  write('denklemin katsayısını gir: ');readln(a);
  write('birinci dereceden bilinmeyenin katsayısını gir: ');readln(b);
  write('sabit sayıyı gir: ');readln(c);
  //denklem:=a*x*x+b*x+c;
  writeln('denklem: ',a:0:0,'x^2+',b:0:0,'x+',c:0:0);
  readln();
  delta:=(b*b)-(4*a*c);


  writeln('delta: ',delta:0:0);
  readln();
  if delta<0 then
     writeln('Bu denklemin reel kökü yok')
  else if delta=0 then
     begin
       x1:=(-b+Sqrt(delta))/2*a;
       writeln('x1 ve x2: ',x1:0:0)
     end
  else if delta>0 then
     begin
        x1:=(-b+Sqrt(delta))/2*a;
        x2:=(-b-Sqrt(delta))/2*a;
        writeln('Bu denklemin iki farklı reel kökü vardır.');
        writeln('x1: ',x1:0:0);
        if x1 <> x2*-1 then
        writeln('x2: ',x2:0:0)
     end
  else
      writeln('lütfen kontrol edin');
  readln();



end.