program Project1;
 var
 a,b,c,delta,x1,x2:real;
begin
  write('a degerini giriniz: ');
  readln(a);
  write('b degerini giriniz: ');
  readln(b);
  write('c degeriniz giriniz: ');
  readln(c);
  delta:=b*b-4*a*c;
  if a = 0 then
     write('a 0 dan farkli olmak zorundadir')
  else if delta > 0 then
     begin
     x1:=(-b+sqrt(delta))/(2*a);
     x2:=(-b-sqrt(delta))/(2*a);
     write('denklemin kokleri: ',x1:0:0,' ve ',x2:0:0);
     end
  else if delta < 0 then
     write('bu denklemin koku yoktur')
  else if delta = 0 then
     begin
     x1:=(-b)/(2*a);
     x2:=(-b)/(2*a);
     write('kokler birbirine esittir: ',x1:0:0);
     end;

  readln;
end.