PascalABC.NET 3.5.1 + .NET Framework 4.7.1
begin
var A := ReadString().ToCharArray;
A.ConvertAll(p -> char.GetNumericValue(p)).Max.Println;
end.
Python 3.7.2
number = [int(i) for i in list(input())]
print(max(number))
