Bai211: Viết chương trình đọc vào n số nguyên (n < 1000). Đếm xem có bao nhiêu số nguyên tố? ( Su dung ham de kiem tra); Xuat ra file. VD : INPUT 3 3 2 4 OUTPUT 2

Write (g,d)

Close(f)

Close (g)

Const Fi='BT.INP';
      Fo='BT.OUT';
Var f,g: text;
    A: array[1..1000] of longint;
    n,i,d: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
        exit(true);
End;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,n);
        da:=0; dd:=0;
        For i:=1 to n do
        Begin
                Read(f,A[i]);
                If ngto(A[i]) then inc(d);
        End;
        Write(g,d);
        Close(f);
        Close(g);
End.