program incacso;
uses crt;
var m,n,i:longint;
begin
clrscr;
repeat
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
if m>=n then write('m phai lon hon hoac bang n');
until m<n;
write('Cac so tu ',m,' den ',n,' la: ');
for i:=m to n do
write(i,' ');
readln
end.