Помогите!!! найти n! при n<=16 с помощью цикла

Факториал 16 = 20922789888000
В числе 14 значащих цифр!
Паскаля под рукой нет,
но осмелюсь предположить, что напрямую с таким числом может справиться только действительный тип Double.
Вот реализация программы:

var N : Byte; F : Double;
begin
Write('Введите N от 1 до 16 : N = '); ReadLn(N);
if N > 16 then begin WriteLn('Слишком большое число! '); Halt; end; Write(N, '! = ');
F := 1; repeat F := F * N; Dec(N); until N <= 1;
WriteLn(F:14:0); WriteLn('Нажмите Enter для завершения программы. '); ReadLn;
end.

Если нужно "очень большие" факториалы,
обращайтесь!
Я занимался такими вопросами:

500! - не предел.. .
как и не предел 500^500

function fact($n)
{
$f=1;
if ($n < 2) return 1;
for ($k=2; $k <= $n; $k++)
$f*=k;
return $f;
}

Одного вопроса мало было?

var n,f:Integer;
begin
write('факториал: ');readln(n);
f:=1;
while(n>1) do
begin
f:=f*n;
n:=n-1;
end;
writeln('Ответ: ',f);
end.

Товарищи, вы не из одного класса? За 20 минут третий вопрос про факториал. Пару страничек назад пролистайте, уже написано

На каком языке программирования?

Вот тут есть на куче языков: http://progopedia.ru/example/factorial/ (надо смотреть те из примеров, где написано "Используется итеративное вычисление факториала" - это как раз с помощью цикла без введения функции) .

легко же. почитай что такое факториал