Identification Division.
Program-Id. OutOfLine-Perform.

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

Procedure Division.
    Set p to 2.
    Display "Displaying Powers of 2 from 0 to 8:".
    Perform Exponent varying i from 0 by 1 until i is greater than 8
    Set p to 4.
    Display "Displaying Powers of 4 from 0 to 8:".
    Perform Exponent varying i from 0 by 1 until i is greater than 8
    Stop Run.

    Exponent.
    Compute temp = (p ** i)
    Display p "^" i " = " temp.