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.

uses crt;
var x,y,z:longint;
begin
    clrscr;
    readln(x,y,z);
    if ((x>y) and (x<z)) or ((x<y) and (x>z)) then writeln(x)
       else if ((y>z) and (y<x)) or ((y<z) and (y>x)) then writeln(y)
          else writeln(z);
readln;
end.