Giải bằng ngoin ngữ pascal

Giúp mik vs

Mik đang vọi

đây ạ cho mk 5 sao và câu trl hay nhất nhé 

uses crt;
var j,i,n:longint;
a,b:array[1..1000000] of longint;
function nt(n:qword):boolean;
var i:longint;
begin
nt:=false;
if n<2 then exit;
for i:=2 to n div 2 do
if n mod i=0 then exit;
nt:=true;
end;
begin
readln(n);
for i:=1 to n do   begin
read(a[i]);
a[i]:=abs(a[i]);
end;
readln;
if nt(a[1]) and nt(a[3]) then  begin b[1]:=2;
j:=1;
i:=2;
repeat
inc(i);
if nt(a[i-1]) and nt(a[i+1]) then begin inc(j);b[j]:=i;end;
until i=n;
write(b[j]);
end else         begin
j:=0;
i:=2;
repeat
inc(i);
if nt(a[i-1]) and nt(a[i+1]) then begin inc(j);b[j]:=i;end;
until i=n;
write(b[j]);end;
readln
end.