b1: 

const fo='kq1.txt';
var m,n:longint;
    f:text;
begin
        read(m,n);
        assign(f,fo); rewrite(f);
        write(f,(m+n)div 2);
        readln;
        close(f);
end.

b2: 

const fi='bt2.txt';
      fo='kq2.txt';
var i,j:longint;
    f,g:text;
    a:array[0..100000]of longint;
begin
        assign(f,fi); reset(f);
        i:=1;
        while not eof(f) do
                begin
                        read(f,a[i]);
                        inc(i);
                end;
        close(f);
        assign(g,fo); rewrite(g);
        for j:=1 to i-1 do
                if a[j] mod 2=0 then write(g,a[j],' ');
        close(g);
end.

b3

const fi='bt3.txt';
      fo='kq3.txt';
var i,j,d:longint;
    f,g:text;
    a:array[0..100000]of longint;
begin
        assign(f,fi); reset(f);
        i:=1;
        while not eof(f) do
                begin
                        read(f,a[i]);
                        inc(i);
                end;
        close(f);
        d:=0;
        assign(g,fo); rewrite(g);
        for j:=1 to i-1 do
                if a[j] mod 2=0 then inc(d);
        write(g,d);
        close(g);
end.

Bài 1:
Const Fo='KQ1.TXT';
Var g: text;
    a,b: longint;
Begin
        Write('Nhap vao 2 so nguyen: '); Readln(a,b);
        Write(g,'TBC: ',(a+b)/2:0:2);
        Close(g);
End.
Bài 2:
Const Fi='BT2.TXT';
      Fo='KQ2.TXT';
Var f,g: text;
    A: array[1..1000] of longint;
    n,i: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        n:=0;
        While not eof(f) do
        Begin
                inc(n);
                Read(f,A[n]);
        End;
        For i:=1 to n do
                If A[i] mod 2 = 0 then Write(g,A[i],' ');
        Close(f);
        Close(g);
End.
Bài 3:
Const Fi='BT3.TXT';
      Fo='KQ3.TXT';
Var f,g: text;
    A: array[1..1000] of longint;
    n,i,d: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        n:=0;
        While not eof(f) do
        Begin
                inc(n);
                Read(f,A[n]);
        End;
        For i:=1 to n do
                If A[i] mod 2 = 0 then inc(d);
        Write(g,d);
        Close(f);
        Close(g);
End.