PROGRAM power3_loop
!*** 3rd power of a for 1 <= a <= 8
IMPLICIT NONE
INTEGER :: a, b
DO a = 1, 8
b = a*a*a
PRINT*,a,"to the power of three = ",b
END DO
END PROGRAM power3_loop
The
UFJPR1JBTSBwb3dlcjNfbG9vcAohKioqIDNyZCBwb3dlciBvZiBhIGZvciAxIDw9IGEgPD0gOApJTVBMSUNJVCBOT05FCklOVEVHRVIgOjogYSwgYgpETyBhID0gMSwgOApiID0gYSphKmEKUFJJTlQqLGEsInRvIHRoZSBwb3dlciBvZiB0aHJlZSA9ICIsYgpFTkQgRE8KRU5EIFBST0dSQU0gcG93ZXIzX2xvb3AKVGhl