uses crt;
 var a : array[1..100] of Longint ;
     b : array[1..100] of Longint ;
  n, i, j,longue , k: Longint ;
   begin
    clrscr;
write('N=');
 readln(n);
    for i := 1 to n do
     begin
    write('a',i,'=');
    readln(a[i]);
     end ;
  i := 2 ;
  While i <=n do 
     Begin 
    j := 1 ;
    While a[j] <> a[i] do inc(j);
    if j < i then 
         Begin 
        for k := i to n - 1 do a[k] := a[k+1];
        dec(n);
         end 
    else inc(i);
     end ;
    for i := 1 to n do
        for j := i to n do 
            if a[j] > a[i] 
                then 
                 begin
                longue := a[i];
                a[i] := a[j];
                a[j] := longue ;
                 end ;
    writeln('Nhat=',a[1]);
    writeln('Nhi=',a[2]);
    writeln('Ba=',a[3]);
            end .

uses crt;

var a: array[1..100] of integer;

i,j,t: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do readln (a[i]);

for i:=1 to n-1 do 

for j:=i+1 to n do

if a[i]<a[j] then 

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln ('so lon nhat: ',a[1]);

writeln ('so lon nhi: ',a[2]);

writeln ('so lon ba: ',a[3]);

readln;

end.

$#Trumtinhoc$