Program Zhrdzavene_potrubie; var N,i:integer; diera,zaplata:real; { pozicia diery, lavy koniec zaplaty } begin read(N); zaplata:=-999999; { nieco hrozne vlavo } for i:=1 to N do begin read(diera); if diera>zaplata+1 then { Ak povodna zaplata uz nedociahne... } begin zaplata:=diera; { ...dame novu zaplatu...} writeln(zaplata); { ...a vypiseme ju. } end; end; end.