Сколько времени потребуется для ввода в память компьютера текста на 38 страницах с сканера и программы ABBYY FineReader, если известно, что на сканирование одной страницы уходит 3 секунды, на смену страницы в сканере — 9 секунд, на распознавание страницы — 2 секунды?

2 052 вот столько секунд

Program project1;   const   //множество разделителей слов.   d = [ ' ' , '.' , ',' , ': ' , '; ' , '! ' , '? ' , '-' , # 9 , # 10 , # 13 ]; var   s , strw , strwmax : string;   i , pos1 , len , lenw , lenwmax , cnt : integer; begin   repeat     writeln ( 'задайте текст: ' );     readln (s );       //обработка текста.     len : = length (s );     lenwmax : = 0;     strwmax : = '';     cnt : = 0;     pos1 : = 0;     for i : = 1 to len do begin       //пропускаем разделители.       if s [i ] in d then continue;       //отслеживаем начало слова.       if (i = 1 ) or (s [i - 1 ] in d ) then pos1 : = i;       //отслеживаем конец слова.       if (i = len ) or (s [i + 1 ] in d ) then begin         //вычисляем длину слова.         lenw : = i - pos1 + 1;         //выделяем слово.         strw : = copy (s , pos1 , lenw );         //если слово совпадает с текущим наибольшим по длине,         //тогда увеличиваем счётчик.         if strw = strwmax then begin           cnt : = cnt + 1;         end else if lenw > lenwmax then begin           //если это очередное слово длиннее всех ранее найденных слов, то           //запоминаем его и его длину и сбрасываем счётчик.           strwmax : = strw;           lenwmax : = lenw;           cnt : = 1;         end;       end;     end;       //показываем результат.     if strwmax < > '' then begin       writeln ( 'первое из самых длинных слов: "' , strwmax , '".' );       writeln ( 'это слово встречается в тексе ' , cnt , ' раз.' );     end else begin       writeln ( 'в строке нет слов.' );     end;       writeln ( 'повторить - enter, выход - любой символ + enter.' );     readln (s );   until s < > ''; end.   находит саммое длинное слово