Viết chương trình pascal đếm từ 1 đến 100 xem có bao nhiêu số nguyên tố và tính tổng của chúng.

program tongnguyeto;

uses crt;

var n,i:byte;

       T:integer;

function ktnt(k:byte;):boolean;

var l:byte;

begin

     ktnt:=false;

     if k<2 then exit;

     for l:=2 to trunc(sqrt(k)) do

             if k mod l=0 then exit;

     ktnt:=true;

end;

BEGIN

     clrscr;

     T:=0;

      for i:=1 to 100 do

            if ktnt(i) then T:=T+i;

      write(‘Tong 100 so tu nhien dau tien la: ‘,t);

      readln;

end.