Нвход программы поступает последовательность из n целых положительных чисел. рассматриваются все пары элементов последовательности ai и aj, такие что iaj (первый элемент пары больше второго; i и j - порядковые номера чисел в последовательности входных данных). среди пар, удовлетворяющих этому условию, необходимо найти и напечатать пару с максимальной суммой элементов, которая делится на m=120. если среди найденных пар максимальную сумму имеют несколько, то ма печатать любую из них.
i,n: integer;
a: array of integer;
begin
readln(n);
setlength(a,n+1);
for i := 1 to n do
begin
a[i] := sqr(i);
write(a[i], ' ')
end;
end.