Số nguyên tố

Lập trình để đưa ra màn hình các số nguyên tố trong đoạn <n1,n2>, trong đó n1,n2 là các số tự nhiên nhập từ bàn phím.
 Có bao nhiêu số như thế?
                                                                 Giải
Var n,n1,n2,cnt: Longint;
Function IsPrime(n:Longint):Boolean;
       Var i:Longint; Ok:Boolean;
       Begin
           Ok:=True;
           If (n=1) or (n=0) Then Ok:=False
           Else
               For i:=2 to (n-1) Do
                   If n mod I=0 Then Ok:=False;
           IsPrime:=Ok;
       End;
BEGIN
       Write(' Cho so tu nhien n1 va n2: '); Readln(n1,n2);
       Write(' Day cac so nguyen to trong doan [',n1,'-',n2,'] la: ');
       For n:=n1 to n2 do
           If IsPrime(n) Then
                Begin
                    Write(' ',n); Cnt:=Cnt+1
                End; Writeln;
       Writeln(' => Vay trong doan [',n1,'-',n2,'] co ',Cnt,' So nguyen to');
       Readln;
END.