Составьте программу для нахождения среднего арифметического двухзначных чисел кратных 3

Допустим дана последовательность числе из n элементов

Pascal

var

mas:array[1 ... 100] of integer;

n2, sum, i, n:intger;

begin

readln (n);

sum:=0;

n2:=0;

for i:=1 to n do

read (mas[i]);

for i:=1 to n do

begin

if (mas[i] mod 3 = 0) and (mas[i]>9) and (mas[i]<100) then

begin

n2:=n2+1;

sum:=sum+mas[i];

end;

end;

writeln (sum/n2);

end.