Сколько времени потребуется для вывода в память компьютера текста романа а дюма три мушкетёра с сканера и программы abbyy finereader если известно что на сканирование одной страницы уходит 3 секунды на смену страницы в сканере 5 секунд распознавание страницу 2 секунды

#include <ctime> 
#include <algorithm> 
#include <vector> 
 
int main()
{
    // Заполняем.
    const int n = 1000;
    std::srand(time(0));
    std::vector<unsigned int> arr(n);    
    std::generate(arr.begin(), arr.end(), std::rand);
   
    // Находим первые два четных элемента.        
    auto lambda = [](const unsigned int & i){ return (i % 2) == 0; };
    auto iEven1 = std::find_if(arr.begin(), arr.end(), lambda);
    auto iEven2 = std::find_if(iEven1 + 1 , arr.end(), lambda);
    unsigned int  nEven1 = *iEven1;
    unsigned int  nEven2 = *iEven2;

    // Изменяем.
    bool isTurn = false;
    std::transform(iEven2 + 1, arr.end(), iEven2 + 1,
        [&isTurn, &nEven1, &nEven2](unsigned int i){
            unsigned int t = i;
            i = nEven1 * nEven2;
            if (t % 2) return i;

            isTurn = !isTurn;
            if (isTurn) nEven1 = t;
            else         nEven2 = t;
            return i;
    });
       
    return 0;
}

Uses  SysUtils,Windows;
var a:array of Integer;    i,n,s,o:Integer;
begin 
o:=0; 
 s:=0; 
SetConsoleOutputCP(1251); 
Randomize; 
 write('Введите "N": ');
  readln(n); 
 SetLength(a,n);
  for i:=0 to Length(a) do   
begin 
    a[i]:=Random(10)-5;
     write(a[i]:3); 
  end;
   Writeln;
    Writeln; 
for i:=0 to Length(a) do 
  begin
     if a[i] mod 2=1 then 
     Inc(s);
     if a[i]<0 then
      Inc(o);
     a[i]:=a[i]*(-1);
   end; 
 Writeln('Кол-во отрицательных элементов: ',o); 
  Writeln('Кол-во нечетных элементов: ',s);
    Writeln;   
for i:=0 to Length(a) do 
    write(a[i]:3); 
 readln;
end.