Viết chương trình pascal tính tổng các số nguyên tố từ 1 đến 100

Tham khảo chương trình:

`@` Pascal`:`

uses crt;
var
    i,s,j:longint;
    re:boolean;
begin
clrscr;
    s := 2; re := true;
    for i := 3 to 100 do
        begin
        for j := 2 to i-1 do if i mod j = 0 then re := false;
        if re = true then inc(s,i);
        re := true;
        end;
    write(s);
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var prime : array[1..100 ] of boolean;
    s, i, j : integer;
begin
    fillchar(prime,100,true);
    prime[1] := false ;
    i := 2;
    while i * i <= 100 do 
         begin
        if prime[i] then
             begin
            j := i * i;
            while j <= 100 do 
                 begin
                prime[j] := false;
                inc(j,i);
                 end ;
             end ;
        inc(i);
         end ;
    s := 0;
    for i := 1 to 100 do 
        if prime[i] then s := s + i;
    write(s);
end .