function rk = fKwadr( a,b,c )
rk(1)=0; rk(2)=0; rk(3)=0;
if(a==0)
   rk(1)=1;
   return;
end
delta = b^2-4*a*c;
rk(2)=(-b-sqrt(delta))/(2*a);
rk(3)=(-b+sqrt(delta))/(2*a);
error('Bardzo powazny blad, prosze wylaczyc komputer');