*Ctrình tính và xuất ra tổng các số lẻ ( chẵn) trong phạm vi từ A đến B *Ctrình tính và xuất ra tổng các số trong phạm vi từ M đến N Giúp e với mai th

uses crt;
var i,a,b,c,l:integer;
begin
    clrscr;
    readln(a,b);
    c:=0;l:=0;
    for i:=a to b do
       if i mod 2=0 then c:=c+i
          else l:=l+i;
    writeln(c);
    writeln(l);
readln;
end.

uses crt;
var i,m,n,t:integer;
begin
    clrscr;
    readln(m,n);
    t:=0;
    for i:=m to n do
       t:=t+i;
    writeln(t);
readln;
end.