kodovi/stek-i-red-opsluzivanja/tekst1.txt

   1 MODULE test1;
   2 FROM InOut IMPORT WriteLn, WriteInt;
   3 (* prost program za sumiranje niza *)
   4 TYPE
   5         array = ARRAY[1..4] OF INTEGER;
   6 (* koristicemo konstantan niz.
   7    to se moze uraditi koriscenjem viticastih zagrada {}
   8 *)
   9
  10 CONST
  11         arr = array{1,2,3,4};
  12         len = 4;
  13 VAR
  14         i,sum: INTEGER;
  15
  16 BEGIN
  17         sum := arr[1];
  18         i := 2;
  19         WHILE (i <= len) DO
  20                 sum := sum + arr[i];
  21                 INC(i);
  22         END;
  23         WriteInt(sum,1);
  24         WriteLn;
  25 END test1.