в массиве Y состоящем из 12 целых чисел определить среднее арифметическое тех из них которые являются четными

var y: array[1..12] of integer;i,k:integer; s:real;beginfor i:=1 to 12 doread (y[i]);for i:=1 to 12 doif y[i] mod 2=0 thenbegins:=s+y[i];k:=k+1;end;s:=s/k;write (s:5:1);end.