// Assemblerprogram til
// beregning af n!
read n;
nmax = n+1;
r = 1;
i = 1;
label 1;
r = r*i;
i = i+1;
if (i < nmax) goto 1;
write r;
end;