ho trovato:

codice:
INTEGER NUM
NUM = 3
WRITE(*,*) "IL NUMERO PERFETTO E' ", NUM