BEGIN
   INTEGER BC,N;
   DEFINE CRLF = "'15&'12";
   STRING S;

   OUTSTR("TYPE IN SIZE OF ARRAY."&CRLF);
   S ← INCHWL;
   N ← INTSCAN(S,BC);
   BEGIN REAL ARRAY R[1:N];
      R[1] ← R[2];
   END;
END;