var
  m:integer;
  i:integer;
  x,max:real;
begin

readln(m);
max:=-10e37;
for i:=1 to m do begin
  read(x);
  if x>max then max:=x;
end;
writeln('The max number is ',max)
end.

特别说明：本程序未测试。