`@` thừa dấu ; trước else (trước else không được có ;)

`@` bạn làm sai yêu câu đề mất rồi, cái của bạn là kiểm tra n có là số lẻ không

Mik sửa lại toàn bộ ct cho bạn nhé!

program SNT;

var n,i,d: integer;

begin

clrscr;

write('Nhap n: '); readln(n);

d:=0;

for i:=1 to n do if n mod i = 0 then d:=d+1;

if d=2 then write('N la so nguyen to') else write('N khong la so nguyen to');

readln

end.

bạn hãy bỏ dấu ";" ở câu lệnh writeln('la so nguyen to'); nhé

vì sau else ko có ";"

nhưng bạn bổ sung câu hỏi là đề là

1. kiểm tra n có là số nguyên tố không (n nhập từ bp)

2. in ra các số nguyên tố từ 1->n (n nhập từ bp)

thì mik viết lại chương trình cho bn nhé

uses crt;

var i,n: integer;

function nt(n: integer): boolean;

var i,d: integer;

begin

d:=0;

for i:=1 to n do

if n mod i=0 then d:=d+1;

if s=2 then nt:=true else nt:=false;

end;

begin

clrscr;

write ('nhap n: ');  readln (n);

if nt(n) then writeln (n,' la so nguyen to) else writeln (n,' khong phai la so nguyen to');

Writeln ('cac so nguyen to tu 1 den n la: ');

for i:=1 to n do

if nt(i) then write (i:4);

readln;

end;