uses crt;
var n,i,a,b:longint;
function nt(a:longint):boolean;
var i:longint;
begin
   if a=1 then exit(false);
   for i:=2 to trunc(sqrt(a)) do
      if a mod i=0 then exit(false);
   exit(true);
end;
begin
clrscr;
   write('Nhap a,b: ');readln(a,b);
   for i:=a to b do
      if nt(i) then writeln(i);
readln
end.

uses crt;
var a,b,i,d,n:longint;
function snt(n:longint):boolean;
begin
     d:=0;
     for i:= 1 to n do
       if n mod i = 0 then d:=d+1;
       if d=2 then snt:=true
       else
         snt:=false
end;
begin
  write('nhap a:');readln(a);
  write('nhap b:'); readln(b);
  for i:=a to b do
  if snt(i) then write(i:6);
readln
end.

=>' xin hay nhat '