3.  Kiểm tra N (nguyên dương) có phải là số nguyên tố không.
program kiem_tra_nguyen_to;
uses crt;
var n,i:integer; bl:boolean;
begin
 clrscr;
 bl:=true;
 write('nhap n: '); readln(n);
 if n<=1 then bl:=false;
 for i:=2 to true(sqrt(n)) then
  if n mod i=0 then bl:=false;
 if bl=true then write('so vua nhap nguyen to.')
 else write('so vua nhap khong nguyen to.');
readln;
end.