begin
   integer
     I;
   real
     X;
   array
     A[0: 3];
   I ≔ 1;
   for X ≔ 1·0,
     2·0,
     3·0 do
      begin
         A[I] ≔ X;
         I ≔ I + 1
      end;
end