PROGRAM ARRDEF;
%KEYEDENTRY ON
TYPE INTARR=ARRAY[1..4] OF INTEGER;
PROCEDURE ARRTIM4(ARR1:INTARR;VAR ARR2:INTARR);
VAR I:INTEGER;
BEGIN
FOR I:=1 TO 4 DO ARR2[I]:=ARR1[I]*4;
END;
BEGIN
END.