PROGRAM ARRTEST(OUTPUT);
TYPE INTARR=ARRAY[1..4] OF INTEGER;
VAR ARR1,ARR2:INTARR;
    I:INTEGER;
PROCEDURE ARRTIM4(ARR1:INTARR;VAR ARR2:INTARR);EXTERN;
BEGIN
FOR I:=1 TO 4 DO ARR1[I]:=I;
WRITELN('CALLING ARRTIM4');
ARRTIM4(ARR1,ARR2);
FOR I:=1 TO 4 DO WRITE(ARR2[I]);
WRITELN;
END.