program vld;
var a,b,c,max: integer;
begin
readln(b);
min:=9;
max:=0;
repeat
c:=b mod 10;
b:=b div 10;
if c>max Then max:=c;
end;
until b<=0;
writeln('Наибольшее значение:',max);
end.
program vld;
var a,b,c,max: integer;
begin
readln(b);
min:=9;
max:=0;
repeat
begin
c:=b mod 10;
b:=b div 10;
if c>max Then max:=c;
end;
until b<=0;
writeln('Наибольшее значение:',max);
end.