#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %begin

int main(int argc, char **argv) { /*%begin*/
  _imp_initialise(argc, argv);

  //     2  %integer i,j,k

  int I;
  int J;
  int K;

  //     3  %ownintegerarray a(0:19)=10,9,8,7,6,5,4,3,2,1,0-1,-2,-3,-4,-5,-6,-7,-8,-9,-10;

  static int A[20] = {10, 9, 8, 7, 6, 5, 4, 3, 2, 1, -1, -2, -3, -4, -5, -6, -7, -8, -9, -10};
  struct _imp_dv A_dv = {A, sizeof(int) /*, dims, <bounds> */};

  //     4                                                ! 0-1, not 0, -1 !!
  //     5  j=4

  J = 4;

  //     6  %for k=0,1,19 %cycle

  // %for K = 0, 1, 19 %cycle
  {
    K = -1;
  L_0001:
    if (K == 19) goto L_0002;
    K += 1;

    //     7  write(a(k)//4,4); write(a(k)//j,4);  newline

    _imp_WRITE(((long)A[K] / (long)4), 4);
    _imp_WRITE(((long)A[K] / (long)J), 4);
    _imp_NEWLINE();

    //     8  %repeat

    goto L_0001;
  }

L_0002:;

//     9  %endofprogram

  _imp_stop(0);
  return 0;
end_0:;
}