PROGRAM simple_arrays;

VAR count,index : INTEGER;
    automobiles : ARRAY[1..12] OF INTEGER;

BEGIN
  FOR index := 1 TO 12 DO
    automobiles[index] := index + 10;
  WRITELN('This is the first program with an array');
  WRITELN;
  FOR index := 1 TO 12 DO
    WRITELN('automobile number',index:3,' has the value',
             automobiles[index]:4);
  WRITELN;
  WRITELN('End of program');
END.