Процессор, сканер.
Всё вот и ответ
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 0).Sum.Print
end.
Ответ:
program wr;
WriteLn (1);
WriteLn (6);
WriteLn (2, ' ',2);
WriteLn (7, ' ', 7);
WriteLn (3, ' ', 3, ' ', 3);
WriteLn (8, ' ', 8, ' ', 8);
WriteLn (4, ' ', 4, ' ', 4, ' ', 4);
WriteLn (9, ' ', 9, ' ', 9, ' ', 9);
ReadLn;
Объяснение:
1-4
2-3
3-2
4-1