uses crt; var a,b,i:longint; {---Chuong-trinh-con---} function scan(n:longint):boolean; var j:longint; begin if n<2 then exit(false); for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then exit(false); scan:=true; end; {---Chuong-trinh-chinh---} BEGIN clrscr; write('Nhap a,b: '); readln(a,b); for i:=a to b do if scan(i) then write(i,' '); readln; END.
