program tongso;
uses crt;
var n,m,i:integer;
s:longint;
begin
clrscr;
repeat
write('Nhap N: '); readln(n);
write('Nhap M: '); readln(m);
if n>m then writeln('N phai be hon hoac bang M');
until n<=m;
s:=0;
for i:=n to m do
s:=s+i;
writeln('Tong cac so nguyen tu ',n,' den ',m,' la: ',s);
readln
end.