напишите программу которая в последовательности чисел заканчивающуюся нулем определяет среднее арифметическое четных чисел кратных 3 и трехзначных, ПИТОН СРОЧНО ​

var

n, i, k, a: integer;

s: real;

begin

repeat

write('Количество чисел: ');

readln(n)

until n > 0;

writeln('Введите числа:');

for i := 1 to n do

begin

write('Число №', i, ': ');

readln(a);

if a mod 3 = 0

then begin

s := s + a;

inc(k)

end

end;

if k > 0

then writeln('Среднее арифметическое чисел, кратных трём, равно ', s / k :0:5)

else writeln('Нет чисел, кратных трём')

end.