Hãy tính tổng các số nguyên tố trong phạm vi từ M đến N (N>=M , N, N nguyên dương)

program tong;
uses crt;
var S,i,m,n,d,j:integer;
begin
   clrscr;
   readln(m,n);
   For i:=m to n do
    begin
     For j:=1 to i do if i mod j=0 then inc(d);
     IF d=2 then
      begin
       d:=0;
       S:=S+i;
      end
     else d:=0;
    end;
   writeln(S);
   readln;
end.

var m,n,j,s:longint;

function checkprime(x:longint):boolean;
var i:longint;
begin
        for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false) else exit(true);
end;

begin

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

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

for j:=m to n do

if checkprime(i) then s:=s+i;

write('S = ',s);

readln;

end.