uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.