ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО РЕШАЕТСЯ ОЦЕНКА АЛГОРИТМЫ

рrogram ozenka; var f,i:integtr; begin f:=1; for i:=1 to 6 do f:=f*i; writeln (f); end. №             i             f                  вывод 1            1              1 2            2               2 3            3              6 4            4              24 5            5              120 6            6               720           720