var a,b,c,x1,x2,d:real;
begin
writeln('a*x*x+b*x+c=0');
 writeln('sisesta a');
readln(a);
writeln('sisesta b');
readln(b);
writeln('sisesta c');
readln(c);
d:=b*b-4*a*c;
writeln('d= ',d);
  if d>=0 then
  begin
x1:=(-b-sqrt(d))/(2*a);
writeln('x1= ',x1:7:2);
x2:=(-b+sqrt(d))/(2*a);
writeln('x2= ',x2:7:2);
end;
if d<0 then  begin
writeln('sellest arvu ruutjuur ei saa vätta!');
end;
readln;
end.