Вычислить значение N! ( N - натуральное, цикл Repeat... Until )

Question

Вычислить значение N! ( N - натуральное, цикл Repeat... Until )

Answer 1

Var i,f,N: integer;
begin readln(N);
i:=0;
f:=1;
repeat
i:=i+1;
f:=f*i;
until iwrite(f);
end.