Дана последовательность n целых чисел (n задается с клавиатуры) посчитать в ней среднее арифметическое квадратов четных чисел(pascal)

Предыдущий
вопрос Следующий
вопрос

program CalcAvgSquares
va
n, number, sum, count, i: integer
begi
sum := 0
count := 0;

writeln('Enter the number of elements in the sequence: ')
readln(n);

for i := 1 to n d
begi
writeln('Enter a number: ')
readln(number);

end;

if count > 0 the
writeln('Average of squares of even numbers: ', sum/count:0:2
els
writeln('No even numbers in the sequence')
end.