開始
閱讀(a)
而a & lt& gt0開始吧
如果a & lt0然後開始x:= x+a；Inc(b)；
end else begin y:= y+a；Inc(c)；結束；
改為(a)；結束；
writeln(b，' '，x)；
writeln(c，' '，y)；
結束。