uses crt;
var i,n:integer;
    A:array[1..100] of integer;
function nt(n:integer):boolean;
var i:integer;
    ok:boolean;
begin
ok:=true;
        for i:=2 to n-1 do
        if n mod i=0 then ok:=ok and false;
        if n<=2 then nt:=false else nt:=ok;
end;
begin
clrscr;
write('Nhap so n: '); readln(n);
        for i:=1 to n do
                begin
                        write('A[',i,']=');
                        readln(A[i]);
                        end;
        for i:=1 to n do
                if nt(A[i]) then write(A[i],',');
readln
end.

uses crt;
var n,i,j:longint; a:array[1..1000]of longint;
function NT(b:longint):boolean;
var dem,i:longint;
        begin
         dem:=0;
         for i:=1 to b do if(b mod i=0)then inc(dem);
         NT:=dem=2;
        end;
begin
 clrscr;
  readln(n);
  j:=0;
  for i:=1 to n do if(NT(i))then
        begin
         inc(j);
         a[j]:=i;
        end;
 readln
end.