program qtruong;
uses crt;
var n, i, S, T: integer;
begin
clrscr;
write('Nhap so nguyen duong n = '); readln(n);
s:=0; t:=0;
For i:=1 to n do if i mod 2 = 0 then s:=s+i;
For i:=1 to n do if i mod 2 = 1 then t:=t+i;
writeln('Tong cac so chan la: ',s);
writeln('Tong cac so le la: ',t);
readln
end.