Viết chương trình nhập vào từ bàn phím 2 số nguyên dương m và n. Tính tổng các số chẵn trong khoảng từ m đến n. Làm nhanh với ạ huhu mk đg ktra ạ . cám ơn mn

uses crt;
var i,m,n,s: word;
begin
 clrscr;
  write ('nhap m: ');  readln (m);
  write ('nhap n: ');  readln (n);
  for i:=m to n do
   if i mod 2=0 then s:=s+i;
  writeln ('tong la: ',s);
 readln;
end.

XIN 5 SAO, CÂU TRẢ LỜI HAY NHẤT VÀ CẢM ƠN