Program_Group
IMPLICIT NONE
Integer::Table, Value, n>0
	DO Table=1,12
	Value=n+1*12
	PRINT Table
	ENDDO
End Program_Group