%BEGIN %INTEGER I I=0 %CYCLE WRITE(I,2) I=I+1 %REPEAT %UNTIL I=4 %ENDOFPROGRAM