program ntn;
uses crt;
var n,i,dem,tongc,tong:longint;
begin
clrscr;
write('nhap n:');readln(n);
demc:=0;
tongc:=0;
for i:=1 to n do if(n mod 2=0)then begin inc(demc); tongc:=tongc+i; end;
writeln('dem cac so chan tu 1 den n la:',demc);
writeln('tong cac so chan tu 1 den n la:',tongc);
writeln('dem cac so tu 1 den n la:',n);
writeln('tong cac so tu 1 den n la:',(n+1)*n/2);
readln;
end.