function  vys = serad( vstup )
% funkce seradi vzestupne tri prvky vektoru vstup vzestupne
% vys=serad(vstup)
% pro HELP zde nesmi byt prazdny radek
% vstup vektor se tremi prvky, ktere budou serazeny
% vys vystupni vektor se serazenymi prvky

vys=[];

if nargin ~= 1
    error('Chybi vstupni parametr')
end
if nargout ~= 1
    error('Chybi vystupni parametr')
end

if length(vstup) ~= 3
    error('na vstupu nema vektor tri prvky')
end

a=vstup(1); b=vstup(2); c=vstup(3);
if a==b & b==c error('Stejne hodnoty, neni co tridit'); end
% konec priprav -------------------------------------------------------

if a>b
    if a>c
        z=a;
        if b>c
            y=b;
            x=c;
        else
            y=c;
            x=b;
        end
    else
        x=b;
        y=a;
        z=c;
    end
else
    if b>c
        z=b;
        if a>c
            y=a;
            x=c;
        else
            y=c;
            x=a;
        end
    else
        x=a;
        y=b;
        z=c;
    end
end
vys=[x y z]
disp(['Kontrola pomoci disp: ' num2str(vys)])
fprintf('%s %d %d %d \n','Kontrola pomoci fprintf: ', x,y,z)
fprintf('%s %d %d %d \n','Kontrola pomoci fprintf: ', vys)
disp('Kontrola pomoci sort')
s=sort(vstup,'ascend')
end

