procedure prim(a:integer; var x:integer);
begin
var i,c:integer;
x:=0;
for i:=1 to a do
if (a mod i = 0) then inc(c);
if c=2 then inc(x);
end;
var n,i,x,sum:integer;
begin
write('Numar: ');
read(n);
writeln;
for i:=1 to n do begin
prim(i,x);
if x=1 then sum+=i;
end;
writeln('Suma: ',sum);
end.
