[أرسلان]

Algorithme Calcule
N,E,I,Produit:Integer;
Debut
Produit=1;
Ecrire ('Donner N=');
Lire(N);
I:=2;
E:=1;
Tant Que E<=N Faire
Si I MOD 2 = 0 Alors
E:=E+1;
Produit:=Produit*Produit;
Fin Si
I:=I+1;
Fin Tant Que
Afficher (Produit);
Fin Programme ;