Viết chương trình in ra tất cả các số nguyên tố bé hơn hoặc bằng n? ngắn gọn nhé

Program bai1;

uses crt;

var dem,n,i: integer;

begin

clrscr;

write(‘nhap n =’); readln(n);

dem:=0;

for i:= 1 to n do

if i mod 2 = 1 then

begin

write(i:3,’,’);

dem:= dem+1 ;

if dem mod 15 = 0 then writeln;

end;

readln;

end.