viết chương trình nhập 2 số nguyên M,N /m khác n/ hãy viết ra màn hình các số chẵn và tính tổng các số đó từ M đến N

uses crt;
var n,m,i,tong:integer;
BEGIN
        clrscr;
        write('Nhap m:'); readln(m);
        write('Nhap n:'); readln(n);
        if m>n then
        begin
                write('Du lieu SAI');
                readln;
                exit;
        end;
        tong:=0;
        write('CAC SO CHAN TU M DEN N LA:');
        for i:=m to n do
                if i mod 2=0 then
                begin
                        write(i,' ');
                        tong:=tong+i;
                end;
        writeln;
        write('TONG CAC SO CHAN TU M DEN N LA:',tong);
        readln
END.

Chúc bạn học tốt.

Cho mình câu trl hay nhất nha.

uses crt;
var i,m,n,t:longint;
begin
clrscr;
   write('Nhap m,n: ');readln(m,n);
   for i:=m to n do  
      if i mod 2=0 then begin inc(t,i); write(i,' '); end;
   writeln;
   writeln('Tong cac so chan tu m den n: ',t);
readln
end.