program Nanana var integer array 10 of integer begin while 10 do begin

program Nanana;
var x,m: integer;
Y: array[1..10] of integer;
begin
    x:=1;
    while x<=10 do begin
        readln(Y[x]);
        x:=x+1;
    end;
    m:=Y[1];
    x:=1;
    while x<=10 do begin
        x:=x+1;
        if m<Y[x] then m:=Y[x];
    end;
    writeln('max=', m);
readln;
end.