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

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.

Comments

Спасибо)