Program lab2zad10;
Var 
n,i:integer;
p:real;
Begin
WriteLn( 'Введитен n>2');
readln (n);
for i:=2 to n do
if (i mod 7<>0) and (i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) and (i mod 11<>0) then WriteLn(i) else writeln('');
End.