cho dãy số 1,2,3.....100 viết chương trình kiểm tra có bn số nguyên tố?(viết bằng pascal)

uses crt;
function snt(n: integer): boolean;
var i: integer;
begin
  If (n=0) or (n=1) or (n=2) or (n=3) then
         snt:=false;
        if n>=4 then
        Begin
         i:=1;
         Repeat
          i:=i+1;
         Until (n mod i=0) or (i*i>n);
         If i*i>n then
          begin
           snt:=true;
          end
         Else
          snt:=false;
        End;
end;
var k,d: integer;
begin
 clrscr;
  for k:=1 to 100 do
   if snt(k)=true then d:=d+1;
  writeln ('co ',d,' so nguyen to trong day tu 1 den 100');
 readln;
end.

mình dùng phương pháp tạo hàm nên bạn tham khảo nhé !!!

꧁༺cao thủ paѕcal✔ツ

program bai_giai;
uses crt;
var i,d:integer;
function ktnt(k:integer):integer;
var r:integer;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit;
    exit(true);
end;
BEGIN
    clrscr;
    d:=0;
    for i:=1 to 100 do
        if ktnt(i) then d:=d+1;
    write(d);
    readln;
end.