На паскале написать программу

 var i,k,m,n:integer;
begin
  write('n: ');
  readln(n);
  k := 0;
  for i := 1 to n do
    begin
      write('» ');
      readln(m);
      if not odd(m) and 99    end;
  writeln(k)
end.