program tong;

uses crt;

var n,i,d,j,T: integer;

Begin

         clrscr;

         write('Nhap n: '); readln(n);

         for i:=1 to n do

         begin

                  d:=0;

                  for j:=1 to i do

                  if i mod j=0 then d:=d+1;

                  if d=2 then T:=T+i;

         end;

         write('Tong cac so nguyen to < ',n,' = ',T);

         readln

End.

program bai_giai;
uses crt;
var n,i,j,t,d:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    t:=0;
    for i:=2 to n do
        begin
            d:=0;
            for j:=2 to i div 2 do
                if i mod j=0 then
                    begin
                        d:=d+1;
                        break;
                    end;
            if d=0 then t:=t+i;
        end;
    write(t);
    readln;
end.