случайным образом генерируется массив b(18) из трехзначных элементов ,вывести этот массив и определить произведение элементов ,кратных 5

Программа:

Pascal:

var

 b: array[1..18] of integer;

 i, prod: integer;

begin

 prod := 1;

 for i := 1 to 18 do begin

   b[i] := random(100, 999);

   if b[i] mod 5 = 0 then prod *= b[i];

 end;

 writeln(b, #10, 'Произведение элементов, кратных 5: ', prod);

end.