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