Viết chương trình đọc từ tệp"DULIEU.INP" 2 số nguyên M và N(M<N) tính tổng các số chẵn trong phạm vi từ M đến N ghi kết quả ra tệp "KẾT QUẢ.OUT"

uses crt;
var f:text;
    n,m,i:word;
    sum:longint;
begin
    assign(f,'DULIEU.INP');reset(f);
        read(f,m,n);
    close(f);
    assign(f,'KETQUA.OUT');rewrite(f);
        for i:=m to n do
            if i mod 2=0 then inc(sum,i);
        write(f,sum);
    close(f);
end.

program bai_giai;
var f,g:text;
    M,N,i,t:longint;
begin
    Assign(f,'DULIEU.INP');  reset(f);
    Assign(g,'KETQUA.OUT');  rewrite(g);
    readln(f,m,n);
    t:=0;
    for i:=m to n do
        if i mod 2=0 then t:=t+i;
    write(g,t);
    close(f); close(g);
end.