uses crt;
var n,i:longint;a:array[1..1000]of longint;
function NT(b:longint):boolean;
var i,dem:longint;
        begin
         dem:=0;
         for i:=1 to b do if(b mod i=0)then inc(dem);
         NT:=dem=2;
        end;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('nhap 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 a: array[1..100] of integer;

i,n: integer;

function nt(n: integer): boolean;

var i,d: integer;

begin

d:=0;

for i:=1 to n do

if n mod i=0 then d:=d+1;

if d=2 then nt:=true

else nt:=false;

end;

begin

clrscr;

Write ('nhap n: ');  readln (n);

for i:=1 to n do readln(a[i]);

writeln ('Cac so nguyen to la: ');

for i:=1 to n do if nt(a[i]) then write(a[i]:4);

readln;

end.

$#Trumtinhoc$