MODULE test1;
FROM InOut IMPORT WriteLn, WriteInt;
(* prost program za sumiranje niza *)
TYPE
	array = ARRAY[1..4] OF INTEGER;
(* koristicemo konstantan niz.
   to se moze uraditi koriscenjem viticastih zagrada {}
*)

CONST
	arr = array{1,2,3,4};
	len = 4;
VAR
	i,sum: INTEGER;

BEGIN
	sum := arr[1];
	i := 2; {{
	WHILE (i <= }} len) DO
		sum := sum + arr[i];
		INC(i);
	END;
	WriteInt(sum,1);
	WriteLn;
END test1.