begin
   integer
     I,
     J;
   real array
     CAT[1 : 15];
end