Ответ: Паскаль

program z1;

var

 a, b, c: integer;

begin

 readln(a, b, c);

 begin

   if a > b then

     writeln(a) end;

 begin

   if a > c then  

     writeln(a) end;

 begin

   if b > c then

     writeln(b) end;

 begin

   if b < c then

     writeln(c);

 end;

end.