===== PascalABC.NET =====
begin
// 1
var (a,b) := ReadInteger2;
Swap(a,b);
Println(a, b);
// 2
ReadSeqIntegerWhile(p -> p <> 8).Sum.Print
end.
