program lon_nhi;
uses crt;
var x,y,z,max1,max2:integer;
begin
clrscr;
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
write('Nhap z: '); readln(z);
if (x=y) and (y=z) then write('Khong co so nao lon nhi vi bang nhau')
else
begin
max1:=x;
if y>max1 then max1:=y;
if z>max1 then max1:=z;
if max1<>x then
begin
max2:=x;
if (y>max2) and (y<>max1) then max2:=y;
if (z>max2) and (z<>max1) then max2:=z;
end
else if (max1=x) and (max1<>y) then
begin
max2:=y;
if (z>max2) and (z<>max1) then max2:=z;
end
else if (max1=x) and (max1=y) then max2:=z;
write('So lon thu hai la: ',max2);
end;
readln;
end.
*Có nhiều if vì có nhiều trường hợp khác nhau
+ Cả 3 số bằng nhau thì không có số lớn nhì
+ Số đầu tiên khác số lớn nhất
+ Số đầu tiên giống số lớn nhất và số thứ hai khác số lớn nhất
+ Số đầu tiên và số thứ hai giống số lớn nhất thì số lớn nhì là số còn lại.
