program AverageNotMultipleOfThree;

var
N, i, sum, count, number: integer;
average: real;
arr: array[1..100] of integer;

begin
sum := 0;
count := 0;

writeln('Enter the number of elements in the array:');
readln(N);

writeln('Enter the elements of the array:');
for i := 1 to N do
begin
readln(arr[i]);
if (arr[i] mod 3 <> 0) then
begin
sum := sum + arr[i];
count := count + 1;
end;
end;

average := sum / count;

writeln('The average of elements in the array not multiple of 3 is: ', average:0:2);

end.