program p1;
var n,i,a,ak:integer;
begin
ak:=0;
write ('n = ');
readln (n);
for i:=1 to n do
write ('a',i,' = ');
readln (a);
if a mod 2 <> 0 then ak:=ak+1
end;
write('ak = ',ak)
end.
program p1;
var n,i,a,ak:integer;
begin
ak:=0;
write ('n = ');
readln (n);
for i:=1 to n do
begin
write ('a',i,' = ');
readln (a);
if a mod 2 <> 0 then ak:=ak+1
end;
write('ak = ',ak)
end.