Пожалуйста посчитайте срочно с 1 и 3.Очень срочно!!!!!!

begin
  Writeln(ReadSeqIntegerWhile(t->t<>0).Max)
end.


36 102 52 19 212 42 97 72 64 0
212



begin
  Writeln(ReadSeqInteger(ReadInteger).Where(x->x>0).Sum)
end.


10
36 102 52 19 212 42 97 72 64 10
706