uses crt;
var i,n,s:longint;
function KTNT(a:longint):boolean;
var j,dem:longint;
        begin
         dem:=0;
         for j:=1 to a do if(a mod j=0)then inc(dem);
         KTNT:=dem=2;
        end;
begin
 clrscr;
  s:=0;
  write('n=');readln(n);
  for i:=1 to n-1 do if(KTNT(i))then begin write(i,' ');s:=s+i;end;
  writeln;
  write('tong cac so nguyen to nho hon n la:',s);
 readln
end.

uses crt;
var n,i,s:longint;
function nt(a:longint):boolean;
var i:longint;
begin
   if a=1 then exit(false);
   for i:=2 to trunc(sqrt(a)) do
      if a mod i=0 then exit(false);
   exit(true);
end;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      if nt(i) then
         begin
            write(i,' ');
            s:=s+i;
         end;
   writeln;
   writeln('Tong: ',s);
readln
end.