program phuongt;

uses crt;

  var K, m, n, i: integer;

begin

            clrscr;

            write('Nhap n = '); readln(n);

            write('Nhap m = '); readln(m);

            write('Nhap K = '); readln(K);

            write('Cac so lon hon K tu m den n la: ');

            if n>m then for i:=m to n do if i>K then write(i:4);

            if n<m then for i:=m downto n do if i>K then write(i:4);

            readln

end.

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.