var
a,b,c,x:real;
begin
writeln('Sisesta a');
readln(a);
writeln;
writeln('Sisesta b');
readln(b);
writeln;
writeln('Sisesta c');
readln(c);
writeln;
writeln('Sinu ruutv6rrand on selline');
write(a:1:2,'x*x');
if b>=0 then write('+');
write(b:1:2,'x');
if c>=0 then write('+');
writeln(c:1:2,'=0');
if (b*b-4*a*c)<0 then write('lahendid on sellised kompleksarvud ',
'x1= ',(-b/(2*a)):1:2,'+',((sqrt(-b*b+4*a*c))/(2*a)):1:2,'i',
' x2= ',(-b/(2*a)):1:2,'-',((sqrt(-b*b+4*a*c))/(2*a)):1:2,'i')
else writeln('ja vastused on sellised ',
'x1= ',(-b+sqrt(b*b-4*a*c))/(2*a):1:2,
' x2= ',(-b-sqrt(b*b-4*a*c))/(2*a):1:2);
end.