// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('k=', ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count); Writeln('S=',ReadSeqInteger('a,b,c,d=',4). Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum); Writeln('S=',ReadSeqInteger('a,b,c,d=',4). Where(x->(abs(x)<=100) and (x mod 4=0)).Sum) end.
Каждый оператор Writeln решает одну из задач. Если надо все отдельно - просто удаляйте два остальных оператора.
110101
Объяснение: