program ZADACHA4;
var
a : array [1..15] of integer;
I : byte;
begin
  Randomize;

For i := 1 to 15 do
  Begin
    a[i]:=-15+random(15-(-15+1));
    Write(a[i],’ ‘);
    if ((i mod 2) = 1) and (a[i] > 0) and ((a[i] mod 3) =0) then
        writeln(a[i])
  end;

end.