Вот держи. Я мог красиво оформить, но такие задания вроде требуют просто программы без украшательств, если надо могу оформить

var i,n,a,b,c :integer;
begin
read(n);
c:=0;
read(a);
b:=a;
if a=0 then c:=1;
for i:=2 to n do
begin
read(a);
if a>b then b:=a;
if a=0 then c:=1;
end;
writeln(b);
if c=1 then write('yes')
else write('no');
end.