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

var  i,n,m:integer;  k,s:longint;begin  Write('Задайте количество чисел: '); Read(n);  s:=0; m:=0;  Writeln('Вводите числа...');  for i:=1 to n do  begin    Read(k);    if (k mod 2)=0 then begin s:=s+k*k; Inc(m) end  end;  Writeln('Среднее квадратов четных чисел: ',s/m:0:4)end.Тестовое решение:Задайте количество чисел: 7Вводите числа...36-181581469Среднее квадратов четных чисел: 383.2000