Найти сумму простых чисел от 1 до а

program hjk;
var s,m,p,n,a:integer;
begin
read(a);
for n:=1 to a do 
begin
p:=1;
for m:=1 to do 
if n mod m=0
then p:=p*m;
if p=n then
s:=s+n;
end;
writeln (s);
end.

uses crt;
var s,a:longint;
 
function prime(n:longint):boolean;
var i:longint;
begin
 prime:=true;
 for i:=2 to round(sqrt(n)) do if n mod i=0 then
 begin
  prime:=false;
  break;
 end;
end;
 
begin
 clrscr;
 write('A -> ');
 readln(a);
 s:=0;
 for i:=2 to a do if prime(i) then s:=s+i;
 writeln('S=',s);
 readln;
end.

uses crt;
var a:array[1..10000000]of boolean;
N,i,s:longint;
 
procedure search(n:longint);
var  i,j,q:longint;
begin
    FillChar(a,sizeof(a),1);
    q:=round(sqrt(n));
    for i:=2 to q do
    if a[i] then
    begin
        j:=i*i;
        while j<=n do
        begin
            a[j]:=false;
            j:=j+i;
        end;
    end; 
end;
 
begin
    clrscr;
    write('N -> ');
    readln(N);
    s:=0;
    search(N);
    for i:=1 to N do if a[i] then s:=s+i;
    writeln('S=',s);
    readln;
end.