Tìm số lớn thứ nhì trong n số được nhập từ bàn phím.

Program So_lon_nhi; Var n,i,so, nhi,max,tam:integer; Procedure swap(var x,y:real); var tam:real; begin tam:=x; x:=y; y:=tam; 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:= 3 to n do Begin Write('Nhap so: ');Readln(so); if (so>nhi) and (somax then Begin nhi:=max; Max:=so; End; End; Write('So thu nhi la: ',nhi); Readln End.