Var   
   a:array[1..15] of integer;
   i,k:integer;
begin   
   writeln('Исходный массив');   
   k:=0;   
   for i:=1 to 15 do   
   begin     
      a[i]:=random(30)+10;     
      write(a[i]:3);   
   end;   
   writeln;   
   writeln('Числа кратные 3'); 
   for i:=1 to 15 do     
      if (a[i] mod 3 = 0) then     
      begin         
         write(a[i]:3);         
         inc(k);     
      end;     
      writeln;     
      write('Таких чисел - ',k);
end.