BEGIN
INTEGER I
      I=0
      CYCLE
         WRITE(I,2)
         I=I+1
      REPEAT UNTIL  I=4
      printstring("
Test OK")
ENDOFPROGRAM