function y=faktoriaal(x)
%Protseduur leiab etteantud arvu x faktoriaali ja väljastab selle
z=x;
vastus=1;
while x>1
    vastus=vastus*x;
    x=x-1;
end
faktoriaal=vastus

%või teine võimalus
vastus1=1; %alustame faktoriaali arvutamist 1
for i=1:z
    vastus1=vastus1*i;
end
fakt=vastus1
