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.