bạn viết lại hàm kt snt nhé

function ktnt(x:longint):boolean

begin

       if (x<2) then exit(false);

       for i:=2 to n-1 do

                  if (x mod i = 0) exit(false);

       exit(true);

end;

Vì bạn gửi chương trình không đầy đủ nên mình không thể tìm được lỗi sai của bạn nên mình đã tạo ra 1 chương trình khác để bạn so sánh nhé!

Code:

uses crt;
var n,i,index,s,s2: longint;
    a: array[1..100000] of longint;
    fi: text;
function hh(n: longint): boolean;
var i,s: longint;
begin
    s:=0;
    for i:=1 to n-1 do if n mod i = 0 then s:=s+i;
    if s=n then hh:=true else hh:=false;
end;
function nt(n: longint): boolean;
var i:longint;
begin
    nt:=true;
    if n<2 then nt:=false;
    for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then nt:=false;
end;
begin
    s:=0; s2:=0;
    assign(fi,'snthh'); reset(fi);
    readln(fi,n);
    for i:=1 to n do read(fi,a[i]);
    for i:=1 to n do begin
        if hh(a[i]) then s:=s+a[i];
        if nt(a[i]) then s2:=s2+a[i];
    end;
    index:=1;
    for i:=2 to n do if a[1]<a[i] then begin
        a[1]:=a[i];
        index:=i;
    end;
    writeln(a[1],' ',index);
    writeln(s);
    write(s2);
end.