Viết ct nhập từ bằng phím 2 số nguyên M và N (M
2 câu trả lời
var m,i,n,s:integer;
begin
write('Nhap 2 so: '); readln(m,n);
for i:=m to n do
s:=s+i;
write('s= ',s);
readln
end.