PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (so,se):=(0,0); ReadSeqIntegerWhile(t->t>0).ForEach(t->if t.IsOdd then so+=t else se+=t); Write('Сумма четных ',se,' '); if se>so then Write('>') else if se=so then Write('=') else Write('<'); Writeln(' суммы нечетных ',so) end.