program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var p : array [2..100] of integer;
var n, i : integer;
begin
    for i := 2 to 100 do begin
        p[i] :=1;
    end;
    n := 2;
    while n <= sqrt( 100 ) do begin
        i := 2;
        while ( n * i ) <= 100 do begin
            p[ n * i ] := 0;
            i := i + 1;
        end;
        n := n + 1;
        while ( p[n] = 0 ) and ( n <= sqrt(100) ) do begin
            n := n + 1;
        end; 
    end;
    for i := 2 to 100 do begin
        if p[i] = 1 then begin 
            write( i, ',' );
        end;
    end;
    readln
end.