program task2;
var
A:array[1..10] of integer;
i,sum:integer;
begin
  sum:=0;
for i:=1 to 10 do
  begin
  A[i]:=Random(20); //заполняем случайными числами
  //writeln('t ',A[i]); вывод чисто для теста
  end;
for i:=1 to 10 do //второй проход по массиву
  begin
  if A[i]<10 then //если меньше 10
    sum:=sum+A[i];
  if (A[i] mod 3 = 0) and (A[i] mod 5 <> 0) then //если кратно 3 и не кратно 5
    writeln(i);
  end;
writeln('Сумма чисел меньше 10: ',sum);
end.