uses crt;
var i, s: integer;
A: array[1..15] of integer;
begin
clrscr();
s := 0;
randomize();
for i := 1 to 15 do
begin
A[i] := random(46) -20;
write(A[i], ' ');
if (A[i] mod 3 = 0) and odd(A[i])
then s := s + A[i]
end;
writeln();
if s > 0 then writeln('S = ', s)
else writeln('Нет нечётных элементов кратных трём')
end.