@marfa4321
var N, count, i: longint; currentNilai: integer; maxNilai: integer; begin readln(N); maxNilai := 0; currentNilai := 0; for i := 1 to N do begin read(c...