---

var
  a,b,c:integer;
  delta:integer;
begin
  readln(a,b,c);
  delta:=b*b-4*a*c;
  if delta<0 then
    writeln('No real root')
  else
    if delta=0 then
      writeln('Two same roots x=',(-1*b-sqrt(delta))/(2*a))
    else
      writeln('Two different roots x1=',(-1*b-sqrt(delta))/(2*a),' , x2=',(-1*b+sqrt(delta))/(2*a));
end. 

---

哪里錯了