27. По каналу связи каждую секунду передаётся положительное целое число, все числа не превышают 10 000. Передача происходит мгновен-
но. Необходимо вычислить максимальное кратное 7 произведение двух
чисел, между моментами передачи которых не менее 6 секунд.
Если такое значение не удаётся получить, то следует вывести 0.
Входные данные.
Даны два входных файла (файл А и файл В), каждый из которых в пер-
вой строке содержит количество переданных чисел N, а в последующих
N строках - по одному переданному числу соответственно.
В первой строке задаётся число N — общее количество передаваемых
чисел (8 <= N <= 2 000 000). В каждой из следующих N строк задаётся од-
но положительное целое число. Программа должна вывести одно число
описанное в условии произведение либо 0, если получить такое произве-
дение не удаётся.
Пример организации данных во входном файле:
10
22
21
20
16
15
12
20
14
14
17
Для указанных входных данных значением исходной суммы должно
быть число 35.
begin
Range(-50,50,5).Tabulate(x->(x+4)*sqr(x+4)-sin(x)).Print(NewLine)
end.
Результат:
(-50,-97336.2623748537)
(-45,-68920.1490964755)
(-40,-46655.2548868395)
(-35,-29791.4281826695)
(-30,-17576.9880316241)
(-25,-9261.1323517501)
(-20,-4095.08705474927)
(-15,-1330.34971215984)
(-10,-216.544021110889)
(-5,-1.95892427466314)
(0,64)
(5,729.958924274663)
(10,2744.54402111089)
(15,6858.34971215984)
(20,13823.0870547493)
(25,24389.1323517501)
(30,39304.9880316241)
(35,59319.4281826695)
(40,85183.2548868395)
(45,117648.149096475)
(50,157464.262374854)