các bạn xem giúp mình bài này nó chạy tới test 19 thì báo kết quả sai.
uses crt;
var
i,n,soa,sob: longint;
function ngto (n: longint) : boolean;
var i: longint;
begin
i:= 2;
while ((i * i <= n) and (n mod i <> 0)) do i:= i + 1;
if (i*i>n) then ngto:= true
else ngto:= false;
end;
begin
readln(soa,sob);
for i:= soa to sob do
begin
if (i>2) then
if (ngto(i)) then writeln(i);
end;
end.

Hình như cái dòng if (i>2) then (Dòng thứ 4 từ dưới lên) không ổn lắm vì 2 cũng là số nguyên tố mà bạn

Cái function kiểm tra nguyên tố của bạn có vấn đề
bạn thử tham khảo function sau

Code:

function nto(x: longint): boolean; var i: longint; begin for i:= 2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false); exit (true); end;

Bài này còn 1 cách làm khác nhanh hơn rất nhiều là sàng số nguyên tố (bạn có thể tham khảo trong thư viện của VNOI hoặc google)

2 > 2 thi false ma ban