Program Task_12_6_l;
Const n=255;
Type TSet=Set Of 0..n;
Var sim : TSet;
i, j : Integer;
Begin sim := [2..n]; j:= 2;
While j<=n Div 2 Do Begin If j In sim Then Begin
i := J+J;
While i<=n Do Begin sim := sim-[i];
Inc(i, j); End;
End; inc(j) ; End;
For i := 2 To n Do If i In sim Then Write (i : 4);
ReadLn;
End.