Unnamed

program kvadrov;

var a,b,c,D,x:real;
    
begin 

write('Zadaj hodnoty a,b,c : ');
readln(a,b,c);

D:=sqrt(sqr(b)-4*a*c);

if a=0 then if b=0 then if c=0 then writeln('Nekonecne vela rieseni.')
                        else writeln('Nema riesenie.')
			
	    else begin x:=-c/b; writeln('x = ',x:6:3) end
  
   else if sqr(b)-4*a*c>0 then
           writeln('x1 = ',((-b+sqrt(D))/(2*a)):6:3,'x2 = ',(-b-sqrt(D))/(2*a):6:3)
	   
	else if  D=0 then writeln('x = ',-b/(2*a):6:3)
	     
 	     else writeln('Nema riesenie.');
	     
readln;	     
end.