Pascal :

var
a,b,c,d,e:longint;
begin
readln(a,b,c);
for d:=1 to 2 do
if a<b then begin e:=b;a:=c;end;
if a>b then e:=a;
write(e);
end.