написать в паскале программу по этой формуле

#include <algorithm>

#include <iostream>

#include <random>

#include <vector>

void fillVector(std::vector<int>&, int lowerBound, int upperBound);

void print(const std::vector<int>&);

int main() {

   std::vector<int> vec { };

   std::size_t size { 0 };

   std::cout

       << "Please, enter the number of elements: ";

   std::cin

       >> size;

   if (size < 1 || size > 1000) {

       std::cerr

           << "The size must be in the range [1; 1000]" << std::endl;

       return 1;

   }

   vec.resize(size);

   fillVector(vec, 0, 100);

   print(vec);

   std::size_t changes { 0 };

   for (std::size_t i { 0 }; i < vec.size() - 1; ++i) {

       int tempValue { 0 };

       for (std::size_t j { i + 1 }; j < vec.size(); ++j) {

           if (vec.at(i) > vec.at(j)) {

               tempValue = vec.at(i);

               vec.at(i) = vec.at(j);

               vec.at(j) = tempValue;

               ++changes;

           }

       }

   }

   print(vec);

   std::cout

       << "Number of changes: " << changes << std::endl;

   return 0;

}

void fillVector(std::vector<int>& vec, int lowerBound, int upperBound) {

   std::random_device rd;

   std::mt19937 gen(rd());

   std::uniform_int_distribution<int> dist(lowerBound, upperBound);

   int randomValue { };

   for (auto& value : vec) {

       while (true) {

           randomValue = dist(gen);

           if ( std::find( vec.begin(), vec.end(), randomValue) == vec.end() ){

               value = randomValue;

               break;

           }

       }

   }

}

void print(const std::vector<int>& vec) {

   for (const auto value : vec) {

       std::cout

           << value << " ";

   }

   std::cout

       << std::endl;

}

const N = 10;  

var a, i, count, z: integer; s:string;  

suc: array[1..N] of integer;  

begin

 Randomize();

 count := 0;  

 z := 1;

 for i := 1 to N do begin

   a := random(10, 50);

   Str(a, s); if s[2] = '4' then begin count += 1; suc[z] := a; z += 1; end;

 end;

 if count > 0 then begin for i := 1 to z-1 do begin writeln('Выиграшное число: ', suc[i]); end;  

 Writeln('Всего выиграшных билетов: ', count, ' из ', N); end  

 else Writeln('Нет ни одного выиграшного билета');

end.

Объяснение: