For i := 1 to j do if I mod i = 0 then dem := dem + 1;

⇒ Sửa: For i := 1 to j do if j mod i = 0 then dem := dem + 1;

🔻 Chương trình hoàn chỉnh:

program DEMSNT;

uses crt;

var i, dem, j, n : integer;

begin

clrscr;

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

if n > 0 then

    begin

        writeln('Cac so nguyen to tu 1 den ', n ,' la : ');

        for j := 2 to n do

            begin

                dem := 0;

                for i := 1 to j do if j mod i = 0 then dem := dem + 1;

                if dem = 2 then write(j,'  ');

            end;

        end;

readln

end.

program DEHSNI;
uses crt;
var i,i2,n,i3:integer;
begin
    clrscr;
    writeln('Nhap N '); readln(n);
    write('Cac so nguyen to tu 1 den ',n,' la: ');
    for i:=2 to N do 
        begin
        i3:=2;
        for i2:=2 to (i-1) do
            if (i mod i2) = 0 then i3:=1;
        if i3=2 then write(i,' ');
        end;
    readln;
end.

___________
#Duahauvn

P/s: Bạn xem qua ct của mik nha =))