program mas_bol_4_cnechind;
const
z:array[1..10]of real=(2.13, 14.1,-13.66, 0, -2, -16.5, 12,142.3, 122, 111);
b=3;
var
k,i:integer;
begin
k:=0;
for i:=1 to 10 do
if (z[i]>b)and(i mod 2=1) then
inc(k);
write(k)
end.
