prim2

program prime;
uses crt;
var flag,a,num,k:integer;

begin
writeln('Add meg a szamot!');
readln(a);
for num:=2 to a do
    begin
flag :=0;
     for k:=2 to num-1 do
     if num mod k=0 then flag:=1;
     if flag=0 then write(num:4);
    end;
readln;
end.