Bạn nhớ kiểm tra lại xem có bị lỗi không nếu có thì nói mình nhé.
program Hello;
uses crt;
var n,itnhat,nhieunhat,tg,i,j:integer;
a:array[1..100] of integer;
begin
clrscr;
Write('n= ');
readln(n);
nhieunhat:=1;
itnhat:=100;
for i:=1 to n do
begin
Write('Vi tri a', i,'= ');
readln(a[i]);
end;
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[i] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
tg:=1;
for i:=1 to n do
begin
j:= a[i+1]-a[i];
if (j > 2) or (j<0) then
begin
if nhieunhat<tg then nhieunhat:=tg;
if itnhat>tg then itnhat:=tg;
tg:=1;
end;
if j < 3 then
tg:=tg+1;
end;
Writeln('Nhieu nhat: ', nhieunhat );
Writeln('It nhat: ', itnhat);
end.