[myhanh]

Bài số 2:

const Nmax=1000;
type
st=array[1..Nmax] of integer;
var index,len,n,i:integer;
    s:st;
procedure demx(var s:st;x:integer);
var i:integer;
begin
if len>1 then
begin
 {for loop}
 for i:=1 to x-1 do
  if index >= len then index:=1
  else
  begin
  inc(index)
  end;
 {end for loop}
 {delete a member at index from s}
 if index < len then
  for i:=index to len-1 do
  s[i]:=s[i+1]
 else
 index:=1;
 {decrease len by 1}
  dec(len);
end
end;
{end demx}

begin
index:=1;
write('n=');
readln(n);
if n > Nmax then
 write('Loi: Nhap n khong lon hon ',Nmax)
else
begin
if n <= 0 then
write('Khong xet khi n khong duong')
else
if n = 1 then
write('Ky tu dai dien la ky tu duy nhat cua chuoi')
else
begin
for i:=1 to n do
s[i]:=i;len:=n;
while len > 1 do
begin
demx(s,5);
demx(s,6)
end;
write(s[1]);
readln
end
end
end.