%Wyznaczanie pierwiastków równania kwadratowego
function [wynik]=kwadraf(a,b,c)

delta=b^2-4*a*c;

if delta<0
    wynik='Brak rozwi¹zañ!';
elseif delta==0
    x=-b/(2*a);
    wynik=x;
else 
    x1=(-b+sqrt(delta))/(2*a);
    x2=(-b-sqrt(delta))/(2*a);
    wynik=[x1,x2];
end
