Ответ Автор - BobbyFresnel ===== PascalABC.NET =====begin var n := ReadInteger; Write(Max(n div 10, n mod 10))end.