DE QUI

Function dem(n)

k:=k+1;

If((n/10)<1) Then Return (k);

else dem(n/10);

---

Function tinhtong(n)

If ((n/10) < 1) Then Retrun (s+(n/10))

Else Begin

s:=s + (n%10);

tinhtong(n/10);

End;

Return;

---

Function ucln(p,q)

r := p%q;

If(r = 0)

Return q

Else Begin

p:=q;

q:= r;

ucln(q,r);

End;

Return;

---

Procedure try(j)

For i:= 1 To n Do

If chon[i] Then

Begin

vet[j] := I;

chon[i] := false;

If j= n Then

For k := 1 To n Do write(vet[k])

Else try(j+1)

end;

Return;