помогите с решением задач на паскале с использованием цикла!!!

[Alex@ndra]

задача такова: найти Н! с использованием всех операторов цикла (каждый по очереди ) Н! значит : если Н=5 то перемножаем все предьидущие цифры до пять 1*2*3*4*5)

[Sm1Le]

h,x,i:integer;
readln(x);
i:=1;
While(i<>x) do 
begin
h:=h*i;
i:=i+1;
end;

for i:=1 to x do 
begin
h:=h*i;
end;

[Alex@ndra]

ты просто лапусик!!!