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.