uses crt;
var i,n,max1,max2,max3:longint; a:array[1..10000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
max1:=a[1];
for i:=1 to n do
if max1<a[i] then max1:=a[i];
writeln('So lon nhat la: ',max1);
max2:=a[1];
for i:=1 to n do
if (max2<a[i])and(a[i]<max1) then max2:=a[i];
writeln('So lon nhi la: ',max2);
max3:=a[1];
for i:=1 to n do
if (max3<a[i])and(a[i]<max2) then max3:=a[i];
writeln('So lon ba la: ',max3);
readln
end.
