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.
hai cái end. đó ko có lỗi gì đâu nha
