begin
  constinteger kmax=34
  integer i
  cycle i = 32,1,kmax
    comment do something...
  repeat
endofprogram