program Array

program Project2_Array;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  simpleArray : array [1..3] of integer ;
  complexArray : array [1..3, 1..3] of integer ;
  arrayOfString : array [-3..-1] of string ;
  i , j : integer ;

begin
  for i := 2 to 3 do simpleArray [i] := i * i ;
  for i := 1 to 3 do writeln (simpleArray [i]);
  for i := 2 to 3 do
    for j := 1 to 2 do complexArray [i,j] := i *  j ;
     writeln ('complexArray : ');
  for i := 1 to 3 do for j := 1 to 3 do
    writeln ('[',i,',', j , ']=', complexArray [ i , j ]);
  arrayOfString [-2] := 'hello pascal';
  writeln (arrayOfString [-3], arrayOfString [-2]);
  readln ;
  { TODO -oUser -cConsole Main : Insert code here }
end.