cs nhé bn


 

Var n,i:integer;
Function KTNT(m:integer):Boolean ;
Var ok: Boolean;j:integer;
Begin
If m<2 then ok:=false else ok:=true;
For j:=2 to m-1 do if m mod j=0 then ok:=false;
KTNT:=Ok;
end;
Begin
Write('Nhap n= ');Readln(n);
For i:=2 to n do if KTNT(i) then write(i,' ');
Readln
End.