uses crt;
var ln, lnh, lb: integer;
var a:array[1..5] of integer;
function max(x, y: integer): integer;
begin
if x>=y then
max:=x
else
max:=y;
end;
begin
clrscr;
textcolor (white);
write ('Nhap gia tri cua cac phan tu: '); read (a[1], a[2], a[3], a[4], a[5]);
ln:=max(max(max(max(a[1], a[2]), a[3]), a[4]), a[5]);
if ln=a[1] then
begin
lnh:=max(max(max(a[2], a[3]), a[4]), a[5]);
writeln ('gia tri lon nhi la: ',lnh);
end;
if ln=a[2] then
begin
lnh:=max(max(max(a[1], a[3]), a[4]), a[5]);
writeln ('gia tri lon nhi la: ',lnh);
end;
if ln=a[3] then
begin
lnh:=max(max(max(a[1], a[2]), a[4]), a[5]);
writeln ('gia tri lon nhi la: ',lnh);
end;
if ln=a[4] then
begin
lnh:=max(max(max(a[1], a[2]), a[3]), a[5]);
writeln ('gia tri lon nhi la: ',lnh);
end;
if ln=a[5] then
begin
lnh:=max(max(max(a[1], a[2]), a[3]), a[4]);
writeln ('gia tri lon nhi la: ',lnh);
end;
readln;
readln;
end.
end.

HỌC TỐT !!!

Program So_lon_nhi;

Var n,i,so, nhi,max,nam:integer; Procedure swap(var x,y:real);

var nam:real;

begin

nam:=x;

x:=y;

y:=nam;

end;

Begin

Write('Nhap n: ');Readln(n);

Write('nhap so:');Readln(max);

Write('nhap so: ');Readln(nhi);

if nhi > Max then swap(Max,nhi)

For i:= 5 to n do

Begin

Write('Nhap so: ');Readln(so);

if (so>nhi) and (so<max) then

nhi:=so; if so>max then

Begin

nhi:=max;

Max:=so;

End;

End;

Write('So thu nhi la: ',nhi);

Readln

End.