Массив D состоит из 25 чисел,выбранных случайным образом из интервала [-16;25]. Вывести на экран значения массива,кратные трём.

constn = 25;vard:array[1..n] of integer;i,a:integer;beginrandomize;for i:=1 to n dod[i]:= random(41)-16;for i:=1 to n doif d[i] mod 3 = 0 thenwriteln('d[',i,'] = ',d[i]);end.