Var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.
program open_s;
var
y,a,b,c:real;
begin
writeln('Введи значение a');
readln(a);
writeln('Введи значение b');
readln(b);
writeln('Введи значение c');
readln(c);
y:=sqrt(a-c)-((sqr(b)+2)/c);
write('Ответ: ',y);
end.