program hr;
var t:text;
    i,p,code:integer;
    s:string;
    m:array[1..100] of real;
    max:real;
 
begin
assign(t,'t.txt'); reset(t);
read(t,s);
i:=0;
repeat
p:=pos(' ',s);
inc(i);
val(copy(s,1,p-1),m[i],code);
delete(s,1,p);
until p=0;
max:=m[1];
for p:=2 to i do
if m[p]>max then max:=m[p];
 
writeln('MAX= ',max);
 
close(t);
readln;
end.