skup3

program eratosten;
//odredjivanje prostih brojeva

type skup= set of 2..200;
var a:skup;
    i,j:integer;

begin
a:=[2..200];
for i:=2 to 200 do
    begin
    if (i in a)
    then
        begin
        j:=2;
        while j*i<=200 do
            begin
            a:=a-[j*i];
            j:=j+1;
            end;
        end
    end;

    for i:=2 to 200 do
    begin
    if (i in a) then
        write(i,', ');
    end;
writeln;



readln;
end.