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