Cho một dãy số nguyên N hãy tìm xem trong dãy đó có bao nhiêu số nguyên tố và sắp xếp những số nguyên tố đó theo thứ tự tăng dần( hoặc giảm dần) Lưu ý: nếu giảm dần thì dùng lệnh downto
var n,i,j,s:integer; begin write('Nhap n: ');readln(n); for i:=2 to n do begin for j:=2 to i-1 do if i mod j=0 then s:=s+1; if s=0 then writeln(i); s:=0; end; readln end.