var n: integer; F: array[1..10] of integer; begin F[1]:=1; F[2]:=2; for n:=3 to 5 do begin F[n]:=F[n-2]*n; Writeln(F[n]) end end. F[3]=3 F[4]=8 F[5]=15