function y=fakt(n)
vastus=n;
while n>1
    vastus=vastus*(n-1);
    n=n-1;
end
vastus