program Task;
var
arr: array$$\mathrm{1..18}$$ of integer;
i: integer;
product: integer;
begin
// Инициализируем массив случайными числами
randomize;
for i := 1 to 18 do
begin
arr$$i$$ := random$100$; // Генерируем случайные числа от 0 до 99
end;

product := 1;
for i := 1 to 18 do
begin
if $arr[i]mod10=3$ or $arr[i]mod10=7$ then // Проверяем, оканчивается ли число на 3 или 7
begin
product := product * arr$$i$$; // Добавляем число к произведению
end;
end;

writeln${}^{\prime }Произведениеэлементов,оканчивающихсяна3или7{:}^{\prime },product$;
end.