function orto(a)
    [n m] = size(a);
    o = (n == m) && min(min(a' * a == eye(n)));
    if o; fprintf("Ortogonalis matrix!\n");
    else; fprintf("Nem ortogonalis matrix.\n"); end
end