19(10)=31(6), 33(10)=53(6).
А теперь в этом диапазоне перебираем варианты с тройками, не выходя за пределы цифры 5:
31, 32, 33, 34, 35, 43, 53
Всего троек будет восемь.
Var a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.