? Program? test

Implicit? nobody

Integer (8)? ::? Quantity, me, all products

Print *,? ? Input? Answer? Positive? Integer:? '

Read (*, *)? figure

All products? =? 1?

Do what? Me? =? 1, number /2

if(mod(num，I)？ . eq？ 0)? then

Print *,? I

All products? =? All products? *? I

End? if

End? do

Print *,? figure

Print *,? The product of all factors is:? ' ,? All products * quantity

stop

End? Program result

Screen input

? Input? Answer? Positive? Integer:?

48 screen output

? 1

2

three

four

six

eight

12

16

24

48

The product of all factors is:? 254803968