HTML:
program PhuDoan1;uses crt;constmn = 2002; bl =
#32; nl =
#13#10;
fn = 'doan.inp'; gn = 'doan.out';
typeKieuDoan = recorda,b: integer;id: integer; { Chỉ số đoạn }end;
md1 = array[0..mn] of KieuDoan;
mi1 = array[0..mn] of integer;var n: integer; { n - so luong doan }
d: md1; { cac doan }
f,g: text;t: mi1;x, y: integer; { Doan can phu }
procedure Doc;var i: integer;
begin
assign(f,fn);
reset(f);
readln(f,n);readln(f,x, y);
for i := 1 to n do
begin
readln(f,d[i].a,d[i].b);d[i]. id := i;
end;close(f);
end;
procedure Qsort(l,r: integer): tự viết
(*----------------------------------------Duyet nguoc cac doan d[s..e]tim doan i dau tien thoa d[i].a <= x---------------------------------------*) 23
function Tim(s,e,x: integer): integer;
var i: integer;
begin
Tim := 0;
for i := e downto s do
if (d[i].a <= x) then
begin
Tim := i;exit;end;end;
procedure Ket(k: integer): tự viết
procedure XuLi;var i,j,k,v: integer; { k - so doan tim duoc }
beginv := x;k := 0;
t[k] := 0;
repeatj := Tim(t[k]+1,n,v);if (j = 0) then
{ Khong tim duoc }begin Ket(0); { vo nghiem }
exit; end;
v := d[j].
b; k := k + 1; t[k] := j;
until (v >= y);Ket(k); { co nghiem }
end;
BEGIN
doc;
qsort(1,n);
xuli;
END.
procedure Ket(k: integer): giúp mình viết đoạn này với ạ
