function[b]=maximo(a)
n=0;
k=length(a);
for f=1:k
        c=a(f);
        if c>n;
            n=c;
        else n=n;
        end
    end
    disp(n)