C++ :

#include <iostream>
#include <cstdio>
#include <cmath>
using namespace std;

int main()
{
    int n,num=0;
    while(scanf("%d",&n)==1){
        if(n%2==0){num++;}
    }
    printf("%d",num);
    return 0;
}

Pascal :

var
   x,m:longint;
begin
  read(x);m:=0;
  while (x<>-1) do
  begin
    if (x mod 2=0) then inc(m);
    read(x);
  end;
  writeln(m);
end.

#include<bits/stdc++.h>
using namespace std;
int a,ans;
int main(){
    while(1){
        cin>>a;
        if(a%2==0){
            ans++;
        }
        if(a==-1){
            break;
        }
    }
    cout<<ans;
    return 0;
}