编辑代码

program abc;
var 
a,b,c:real; 
begin 
  readln(a,b,c); 
  if (a=0) then  
  begin 
     write('input error(ошибка)'); 
    readln; 
   halt 
  end; 
  if (b*b-4*a*c<0) then  
  begin 
     write('No Result'); 
    readln; 
   halt 
  end; 
 if b*b-4*a*c=0 then write('x1=',(-b)/2/a) 
 else write('x1=',(-b+sqrt(b*b-4*a*c))/2/a:0:3,'x2=',(-b-sqrt(b*b-4*a*c))/2/a:0:3); 
end.