uses crt;

var a, b, c, d, max, max2 : integer;

begin

clrscr;

write('nhap 4 so :');readln(a, b, c, d);

max := a;

if b > max then max := b;

if c > max then max := c;

if d > max then max := d;

if a - max = 0 then

begin max2 := b; if c > max2 then max2 := c;

if d > max2 then max2 := d;

end;

if b - max = 0 then

begin max2 := a; if c > max2 then max2 := c;

if d > max2 then max2 := d;

end;

if c - max = 0 then

begin max2 := a; if b > max2 then max2 := b;

if d > max2 then max2 := d;

end;

if d - max = 0 then

begin max2 := a; if b > max2 then max2 := b;

if c> max2 then max2 := c;

end;

writeln('so lon thu hai la :', max2);

readln

end.