[BlackEric]

program Project1;

Var
a:array[1..11] of integer;
i,s:integer;

Begin
s:=1;
for i:=1 to 11 do read(a[i]);
writeln;
for i:=1 to 11 do if a[i] mod 2 <>0 then s:=s*a[i];
writeln('s=',s);
readln;
End.

Вроде так.