Напишите пожалуйста программу к этой задачке для Visual BasicИмеется массив К

include lt;iostreamgt;
include lt;vectorgt;
using namespace std;
int main()
int n, x, five = 0;
cin gt;gt; n;
vector lt;intgt; k;
for (; n gt; 0; cin gt;gt; x, k.emplace_back(x), n--);
for (int i = 0; i lt; k.size();)
 if (k[i++] == 5)
  ++five;

if (five == 0)
 cout lt;lt; "There is no such";
else
 cout lt;lt; five;
return 0;