program Factorial;varnumber, i, factorial: integer;beginwriteln('Введите число для вычисления факториала:');readln(number);
factorial := 1;i := 1;
repeatfactorial := factorial * i;i := i + 1;until i > number;
writeln('Факториал ', number, '! = ', factorial);end.
program Factorial;
var
number, i, factorial: integer;
begin
writeln('Введите число для вычисления факториала:');
readln(number);
factorial := 1;
i := 1;
repeat
factorial := factorial * i;
i := i + 1;
until i > number;
writeln('Факториал ', number, '! = ', factorial);
end.