Sử dụng biến mảng đề tìm số nguyên tố xuất hiện trong 1 dãy số (Pascal)

program bien_mang;

uses crt;

var i, n, s : integer;

a: array [1..100] of integer;

begin

clrscr;

write(‘So phan tu la: ‘); readln(n);

s:=0;