Program HOC24;
var i,d,n: integer;
t: longint;
begin
write('Nhap n: '); readln(n);
write('Cac so chan tu 1 den ',n,' la: ');
t:=0; d:=0;
for i:=1 to n do
if i mod 2=0 then
begin
write(i,' ');
d:=d+1;
t:=t+i;
end;
writeln;
writeln('Co ',d,' so chan tu 1 den ',n);
writeln('Tong cac so chan do la: ',t);
if t mod 2=0 then write('Tong do la chan') else ('Tong do la le');
readln
end.