program mn;
uses crt;
i,m,no,n:integer;
procedure ud(var t:integer);
var j:integer;
begin
for j:=t to n do
a[j]:=a[j+1];
dec(n);
end;
BEGIN
ClrScr;
Write('N:');
readln(n);randomize;
for i:=1 to n do
begin
a[i]:=random(40);
Write(a[i],' ');
end;
writeln;
i:=1;
While i<=n do
begin
if (a[i] mod 3 =0)or(a[i] mod 5 =0)
then begin
ud(i);
i:=1;
end
else inc(i);
end;
for i:=1 to n do
Write(a[i],' ');
readln;
END.