язык -  Pascal. даны натуральное число n и последовательностьa1, ...., an. Составьте программу,которая находит среднее арифметическое тех элементов последовательности, которые кратны 3 и не кратны 9

var n, i, s, a, k: integer;beginreadln(n);s := 0;k := 0;for i := 1 to n dobeginread(a);if (a mod 3 = 0) and (a mod 9 <> 0) thenbegininc(k);inc(s, a);end;end;write(s div k);end.