giúp câu 3 với.làm bằng pascal pls

uses crt;
var a,n,i,s,b:longint;

function kt(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
assign(input,'NT.INP');
reset(input);
assign(output,'NT.OUT');
rewrite(output);
readln(a,b);
s:=0;
for i:=a to b do
 if kt(i) then
 begin
  write(i,' ');
  s:=s+i;
 end;
writeln;
write(s);
end.

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

`@` Pascal `:`

uses crt;
var
    a,b,sum : int64;
    function snt( a : int64 ) : longint;
        var j : longint;
        begin
        snt := 0;
        for j := 2 to a - 1 do
            if a mod j = 0 then
                begin
                snt := 1;
                exit;
                end;
        end;
begin
clrscr;
    read(a,b);
    while a < 2 do inc(a);
    while a <= b do
        begin
        if snt(a) = 0 then
            begin
            inc(sum,a);
            write(a,' ');
            end;
        inc(a);
        end;
    writeln;
    writeln(sum);
end.