program max_iz_10_while;
const n=10;
var
x,i,m:integer;
begin
read(x);
m:=x;
i:=1;
while i<=n do
if x>m then m:=x;
i:=i+1;
end;
write(m)
end.
program max_iz_10_while;
const n=10;
var
x,i,m:integer;
begin
read(x);
m:=x;
i:=1;
while i<=n do
begin
read(x);
if x>m then m:=x;
i:=i+1;
end;
write(m)
end.