viết chương trình nhập các số nguyên cho đến khi gặp số 0 thì kết thúc.hãy đếm có bao nhiêu số chẵn đã nhập vào

uses crt;
var n,i,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]=0 then exit
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('so luong so chan ban vua nhap vao la: ',dem);
readln;
end.

Program BTT;
Uses crt;
Var n, d: longint;
Begin
        Clrscr;
        d:=0;
        Repeat
        Write('Nhap mot so bat ki: '); Readln(n);
        If n mod 2 = 0 then inc(d);
        Until n=0;
        Write('Co ',d,' so la so chan');
        Readln
End.