Cho tệp văn bản 'SOLIEU.INP' gồm nhiều dòng mỗi dòng chứa một số nguyên . Viết công thức đọc các số nguyên từ tệp trên, tính và ghi vào tệp 'KETQUA.OUT' (lưu ở ổ đĩa D) số lượng các phần tử chẵn có trong tệp.

program bai_giai;
var f,g:text;
    n,d:integer;
begin
    Assign(f,'SOLIEU.INP'); reset(f);
    Assign(g,'D:\KETQUA.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.

var a,b:text;
s:integer;

begin
assign(a,'number.txt');
assign(b,'KQ.txt');
reset(a);
rewrite(b);
while not eof(a) do
begin
read(a,s);
if s mod 3 =0 then
writeln(b,'s=',s,s:3);
end;
close(a);
close(b);
readln
end.