Program timsolon;

Uses crt;

Var a:array[1..1000] of integer;

      m:array[0..5] of integer;

     i,j,h, N: integer;

fi, fo:text;

BEGIN

      assign(fi,'input.inp');

      assign(fo,'output.oup');

      reset(fi);Readln(fi, N);

      for i: = 1 to N do read(fi,a[i]);

      i:=1;

      j:=1;

     m[0]:=0;

      While i <= 3 do

  begin

      While j <= N do

      begin

             if a[j] <a[j + 1] then 

             if (a[j + 1] + 1 <> m[i-1]) and (a[j+1] -1<> m[i-1] ) then m[i]:=a[j+1];  

             j:=j+1;

       end;

      for h:=1 to N do

     if a[h] = m[i] then a[h] := 0;

 i:= i+1;

end;      

rewrite(fo); Writeln(fo,'3 solon nhat khong lien tiep  nhau la',m[1],'  ',m[2].' ',m[3]);

close(fi); close(fo);

END.

Mình có sai gì thì bình luận nhé

uses crt;
var i,j,k,n,max,a1,a2,a3,p:longint;
a:array[1..10000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin 
         write('a[',i,']=');readln(a[i]);
      end;
   max:=low(longint);
   for i:=1 to n-3 do 
      for j:=i+1 to n-1 do 
      begin
         if j=i+1 then p:=i+3 else p:=j+1;
         for k:=p to n do 
            if a[i]+a[j]+a[k]>max then 
               begin
                  max:=a[i]+a[j]+a[k];
                  a1:=a[i]; a2:=a[j]; a3:=a[k];
               end;
      end;
   writeln(a1,' ',a2,' ',a3);
readln      
end.