Напишите в Pascal программу: по заданному целому неотрицательному значению n вычислить n! = 1*2*3*... n.

Предыдущий
вопрос Следующий
вопрос

program CalculateFactorial;
var
n, i: integer;
factorial: integer;
begin
write('Enter a non-negative integer: ');
readln(n);

factorial := 1;
for i := 1 to n do
begin
factorial := factorial * i;
end;

writeln(n, '! = ', factorial);
end.