Написать программку, которая вычисляет факториал числа, введенного с клавиатуры, используя

var
  y: System.uint64; //Великая цЫфра же и положительная
  x, i: byte; //Нет смысла большие числа брать очень, переполнение будет

begin
  readln(x); //Принимаем число...
  y := 1;
  i := 1;
  repeat
    y *= i; //...и умножаем такое-то количество раз
    i += 1;
  until (i gt; x);
  if (y = 0) then //Выводим, предусмотрев переполнение
    writeln('Слишком великая цЫферка')
  else
    writeln(y);
end.
==========================================
Int64 - это то же самое, что LongInt, а Uint64 (unsign long int) - длинноватое число без знака, при правильном использовании дозволяет записывать в переменную числа, в 2 раза превосходящие максимум Int64