Нужен срочно алгоритм в паскале

Вот держи. Я мог красиво оформить, но такие задания вроде требуют просто программы без украшательств, если надо могу оформить 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.