program-id.y.data division.working-storage section.
1 n pic 9.
procedure division.accept n from time
if n<5 display"2
2704156
20
70
3432
2704156
48620
184756
184756
40116600
10400600
48620
924
252"else display"1
155117520".