Question

Помогите пж перевести программу на оператор for

Answer 1

Program n_1;

var n, k, f:integer;

begin

   read(n);

   f:=1;

   for k:=1 to n do f:=f*k;

   writeln(f);

end.

Answer 2

Спасибо)