Ответ:
PascalABC.NET
begin
var arr := ArrRandom(15, 5,500);
arr.Where(x -> x mod 3 = 0).Where(x -> x mod 9 = 0).Product.Println;
end.
программа для выведения числа в обратном порядке
с++
#include <iostream>
using namespace std;
int main()
{
int N;
cin >> N;
cout << N-2 << endl;
return 0;
}