%PROCEDURE ARRTIM4(ARR1,ARR2);
%VALUE ARR1;
%INTEGERARRAY ARR1,ARR2;
%BEGIN
%INTEGER I;
I:=1/0;
PRINTSTRING(<ENTERING_ALGOL_ARRTIM4>);
NEWLINE;
%FOR I:=1 %STEP 1 %UNTIL 4 %DO ARR2[I]:=ARR1[I]*4;
%END