Program Nguyen_to_be_hon_n
uses Crt;
var n, i, j: real;
ok: boolean;
begin
clrscr
write('Nhap so n');
readln(n)
for i := 2 to n - 1 do
begin
ok:=true;
for j:= 2 to i - 1 do if i mod j = 0 then ok:=false;
if ok:=true then write(i, ';')
end;
readln
end.