Даны натуральные числа n, a1,…,an, где n≤1500. Найти члены ak последовательности a1,…,an, являющиеся удвоенными нечетными числами, и определить их количество.
program w1;
var a:array[1..1500] of integer;
i,k,n:integer;
begin
writeln('vvedite n');
readln(n);
writeln('vvedite chisla');
for i:=1 to n do
readln(a[i]);
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then
if (a[i] div 2) mod 2 <>0 then
begin
k:=k+1;
write(a[i]:8);
end;
writeln('k=',k);
end.