Весь интеренет облазила, но не нашла ничего путного, все имеющиеся программы не работают или составлены неправильно. используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения и вычитания, получить в сумме 100. надо написать программу на pascal.

//PascalABC.NET 3.1 сборка 1200
begin
  var n := ReadInteger('n=');
  var a := MatrixRandom(n, n, 0, 10);
  println(a);
 
  var d := new System.Collections.Generic.Dictionary<integer, integer>();
  for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
    begin
      if d.ContainsKey(a[i, j]) then
        d[a[i, j]] += 1
      else
        d.Add(a[i, j], 1);
    end;
    
  var p := d.OrderByDescending(x -> x.Value).First();
  println('Чаще всего встречается ' + p.Key + ', ' + p.Value + ' раз');
end.

#include <iostream>

#include <vector>

using namespace std;

int fibo(int n, int &cnt){

   cnt++;

   if(n == 1 || n == 2)

       return 1;

   return fibo(n-1,cnt) + fibo(n-2,cnt);

}

void solve1(){

   int k = 5;

   while(k--){

       int n,ans = 0;

       cin >> n;

       cout << fibo(n,ans) << " " << ans << "\n";

   }

}

void solve2(){

   const int INF = 1e9 + 7;

   int n, mx1 = -INF, mx2 = -INF;

   cin >> n;

   vector<int> a(n);

   for(auto &i : a) cin >> i;

   for(auto &i : a){

       if(i > mx1){

           mx2 = mx1;

           mx1 = i;

       }

       else if(i > mx2)

           mx2 = i;

   }

   cout << mx2 << " " << mx1;

}