program baitap;
uses crt;
var n,i,j,tc,tl,tnt:integer;
kt:boolean;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Cac so chan tu 1 den ',n,' la:');
tc:=0;
for i:=1 to n do
if i mod 2=0 then
begin
write(' ',i);
tc:=tc+i;
end;
writeln;
writeln('Tong cac so chan tu 1 den ',n,' la: ',tc);
tl:=0;
write('Cac so le tu 1 den ',n,' la:');
for i:=1 to n do
if i mod 2=1 then
begin
write(' ',i);
tl:=tl+i;
end;
writeln;
writeln('Tong cac so le tu 1 den ',n,' la: ',tl);
tnt:=0;
write('Cac so nguyen to tu 1 den ',n,' la:');
for i:=2 to n do
begin
kt:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=false;
if kt=true then
begin
write(' ',i);
tnt:=tnt+i;
end;
end;
writeln;
writeln('Tong cac so nguyen to tu 1 den ',n,' la: ',tnt);
readln
end.
