Написать программу для нахождения удвоенной суммы 2-х чисел.побыстрее в паскале

program raf105;

var a,b,sum2: integer;

begin

write('введите 2 числа: ');

readln(a,b);

sum2: = (a+b)*2;

writeln('удвоенная сумма введённых чисел: ',sum2);

end.

язык pascalabc

#include < iostream>

#include < ctime>

#include < cstdlib>

using namespace std;

int main()

{    srand(time(null));

      const int n(10);

      int a[n], c(0), b(100), count(0);

 

      for (int i(0); i< n; i++){

              a[i]=c+rand()% (b-c+1);

                count+=a[i];

                    }

      for (int i(0); i< n; i++){

              cout < < a[i] < < " ";

      }

cout < < count/float(n);

      return 0;

}

V=k*i; v - объем сообщения k - количество символов в сообщении i - вес одного символа; n=2^i, где n мощность алфавита (n≤32  ⇒ i≤5); v₁=v₂ (объёмы сообщений); 2,5*k₁ = k₂ v₁=k₁*i₁; v₂=k₂*i₂=2,5*k₁*i₂; приравняем объёмы k₁*i₁=2,5*k₁*i₂  ⇒ i₁  = 2,5*i₂ решим уравнение в целых числах, учитывая, что любое i≤5 ( можно подставлять числа для i₁ от 1 до 5 и найти то решение, при котором i₂ - целое число); у меня получилось i₁ = 5; i₂=2 т.к. 5=2,5*2 нам нужны мощности 1го и 2го алфавитов n₁=2^i₁=2⁵=32 символа; n₂=2^i₂=2²=4 символа.