Помогите пожалуйста с задачей

[Ronk]

Помогите, пожалуйста, с задачей.
=================================== =
Используя технологию структурного программирования, разработать программу решения задачи, содержащую три вида циклических управляющих структур: Цикл-Пока (с предусловием), Цикл-До (с постусловием), Цикл-Для (с параметром).

[Sazary]

Программы работают при N<=9!!! (в переменную типа longint больше не влезет (в смысле результат))

цикл while:

uses crt;
var
N,i,res : longint;
begin
clrscr;
write('Enter N: ');
readln(N);
i := 1;
res := 1;
while i<=N do
  begin
  res := res*2*i;
  inc(i);
  end;
writeln('Result: ',res);
readln;
end.

repeat:

uses crt;
var
N,i,res : longint;
begin
clrscr;
write('Enter N: ');
readln(N);
i := 1;
res := 1;
repeat
  res := res*2*i;
  inc(i);
until i>N;
writeln('Result: ',res);
readln;
end.

for:

uses crt;
var
N,i,res : longint;
begin
clrscr;
write('Enter N: ');
readln(N);
res := 1;
for i:=1 to N do
  res := res*2*i;
writeln('Result: ',res);
readln;
end.