Viết chương trình in ra số nguyên tố i, i<=n, n là số được nhập vào. Bằng câu lệnh While

uses crt;

var i,n,s,j,luu:integer;

begin

clrscr;

i:=1;

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

write(‘Cac so nguyen to la: ‘);

while i<>n do begin

for j:=1 to i do  if (i>=2) and (i mod j=0) then luu:=luu+1;

if luu=2 then write(i, ‘,’);

luu:=0;

i:=i+1;

end;

readln

end.