Ввод в точки
for.... do
begin
if a[i] mod 2 = 1 then
s := (s + a[i]);
x:= x+1;
end;
s := s/x;
write(s:0:2);