Identification Division.
Program-Id. Inline-Perform.

Data Division.
Working-Storage Section.
01 i PIC 99.
01 temp PIC Z(19)9.

Procedure Division.
Perform varying i from 0 by 1 until i is greater than 32
    COMPUTE temp = (2 ** i)
    Display "2^" i " = " temp
End-Perform
Stop Run.