cho tệp dulieu.inp gồm các số nguyên mỗi số trên 1 dòng . Đếm các số chẵn. Ghi kết quả ra tệp dulieu.out

program bai_giai;
var f,g:text;
    n,d:longint;
begin
    Assign(f,'dulieu.inp');  reset(f);
    Assign(g,'dulieu.out');  rewrite(g);
    d:=0;
    while not eof(f) do
        begin
            readln(f,n);
            if n mod 2=0 then d:=d+1;
        end;
    write(g,d);
    close(f); close(g);
end.

uses crt;
var f:text;
    n,i,count:longint;
    a:array[1..1000]of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    assign(f,'dulieu.out');rewrite(f);
        for i:=1 to n do
            if a[i] mod 2=0 then inc(count);
        write(f,count); 
    close(f);
readln;
readln;
end.