function y=vekt(a,b)
    if a > b
        c = a
        a = b
        b = c
    end
        r = ones(1,a)
        for i=1:a
            r(i) = b^i
        end
    y=r
endfunction


function y=hatv(a,b)
    if a > b
        c = a
        a = b
        b = c
    end
    y=a^b
endfunction