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

Var   y: system.uint64; //большая цыфра же и положительная   x, i: byte; //нет смысла большие числа брать слишком, переполнение будет begin   readln(x); //принимаем   y : = 1;   for i : = 1 to x do     y *= i; // умножаем такое-то количество раз   if (y = 0) then //выводим, предусмотрев переполнение     writeln('слишком большая цыферка')   else     writeln(y); end.========================================== int64 - это то же самое, что longint, а uint64 (unsign long int) - длинное число без знака, при правильном использовании позволяет записывать в переменную числа, в 2 раза превышающие максимум int64

Program e9;     var p, i, n: integer; begin     write ('введите целое n = ');     readln (n);     p: = 1;     for i: = 1 to n do         p: = p * i;     write (n, '! = ',p);       readln  end.

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.