Дана последовательность 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 -18 15 8 14 6 9 Среднее квадратов четных чисел: 383.2000