primszamok

program prim;
uses crt;
type szamok=array[2..1000] of integer;
var x,i,j: integer; a:szamok;
begin
clrscr;
writeln(' A karakterek maximuma:');
readln(x); clrscr; writeln(' A maximum: ' ,x);
for i:=2 to x do a[i]:=i;
for i:=2 to x do if a[i]>0 then begin
j:=i;
 while j<=x do begin j:=j+i;
                     a[j]:=0; end; end;
for i:=2 to x do if a[i]>0 then write(' ', a[i], ',');
readln;
end.