var int[] arr; arr := array(int, 5, 0);

var int i; i := 0;

while (i < 5) do
    arr[i] := i*i;
    i := i+1;
od;

print(arr[3]);



var char[] arr2; arr2 := ['H', 'a'];

print(arr2[0], arr2[1]);

var char[] arr3; arr3 := array(char, 2, 0);
arr3[1] := 'a';
arr3[0] := 'H';

if arr2 == arr3 then
    print('Y')
else
    print('N')
fi;
