готово
Объяснение:
program factorial;
var k, f, n: integer;
begin
k := 1;
f := 1;
Write('Введите N:');
ReadLn(n);
while k <= n do
f := f * k;
k := k + 1;
end;
writeln(n,'!=',f);
end.
