Задание на картинке, нужно решить в паскале

#include <iostream> // iostream

int main() { // int main

int N; // N

int M; // M

int sum = 0; // сумма чисел хэмминга от n до m

std::cout << "N: "; // запрашиваем N

std::cin >> N;

std::cout << "M: "; // запрашиваем M

std::cin >> M;  

int *hemming = new int[M - N + 1]; // массив с числами хемминга

int counter = 0; // размер массива

for (int i = N; i <= M; ++i) { // записываем числа в массим хемминга

 if (i % 2 == 0 || i % 3 == 0 || i % 5 == 0) { // если остаток от деления

  std::cout << i << " "; // на 2 или 3 или 5 равен нулю

  hemming[counter] = i; // и выводим.  

  sum += hemming[counter]; // прибавляем к сумме числа

  ++counter; // увеличиваем счётчик

 }

}

std::cout << std::endl << sum; // выводим сумму

}

например, это можно сделать так:

UPD: изменено

#include <iostream>

#include <set>

#include <cmath>

using namespace std;

bool prime(int n){

   for(int i = 2; i * i <= n; i++)

       if(n % i == 0)

           return false;

   return true;    

}

signed main() {

   int n;

   cin >> n;

   set<int> ok;

   ok.insert(2);

   ok.insert(3);

   ok.insert(5);

   int sum = 0, cnt = 0,cur = 2;

   while(cnt != n){

       bool norm = true;

       for(int i = 2; i * i <= cur; i++)

           if(cur % i == 0 && ( ok.find(i) == ok.end() && prime(i)) || (cur % (n/i) == 0 && ok.find(n/i) == ok.end() && prime(n/i)))

               norm = false;

       if(norm){sum += cur; cnt++;}

       cur++;

   }

   cout << sum;

}