Bài 2: Nhập danh sách mảng A bao gồm N phần tử của số nguyên. In ra màn hình các phần tử trong mảng là số nguyên tố. Tính tổng các số đó. ( Trong Pascal)

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

`@` Pascal `:`

uses crt;
var
    a : array[1..100000] of longint;
    i,n : longint;
    sum : int64;
    function snt( a : int64 ) : longint;
        var j : longint;
            begin
            if a > 1 then snt := 1;
            for j := 2 to a-1 do
                if a mod j = 0 then
                    begin
                    snt := 0;
                    exit;
                    end;
            end;
begin
clrscr;
    read(n);
    for i := 1 to n do 
        begin
        read(a[i]);
        if snt(a[i]) = 1 then
            begin
            inc(sum,a[i]);
            write(a[i],' ');
            end;
        end;
end.

uses crt;
var n,i:longint;
a:array[1..10000] of longint;

function prime(n:longint):boolean;
var i:longint;
begin
 if n<2 then exit(false);
 for i:=2 to trunc(sqrt(n)) do
  if n mod i=0 then exit(false);
 exit(true);
end;
 
begin
clrscr;
readln(n);
for i:=1 to n do
 readln(a[i]);
for i:=1 to n do
 if prime(a[i]) then write(a[i],' ');
readln
end.