pascal 循环结构计算1+2+3+4.+n之和、奇数和与偶数和.

var
i,n,x,y,z:longint;
begin
readln(n);
for i:=1 to n do
begin
inc(x,i);
if i and 1=1 then inc(y,i)
else inc(z,i);
end;
writeln(x,' ',y,' ',z);
end.