Код ниже
Объяснение:
program factorial;
var n, d, i: integer;
begin
writeln('Введите n');
readln(n);
d := 1;
for i := 1 to n do begin
d := d*i;
end;
writeln('Факториал числа ', n, ' равен ', d);
end.
