Найти все пары последовательных чисел массива, сумма которых больше 50.паскаль

const n=10; var a:array[1..n] of integer; i:integer;  begin Randomize; for i:=1 to n do begin  a[i]:=random(51);  write(a[i]:3);  end; writeln; writeln('Пары соседних элементов с суммой > 50:'); for i:=2 to n do   if a[i-1]+a[i]>50 then writeln(a[i-1]:3,'  ',a[i]); end. Пример:  12 34 23  1 12  3  1 42 30 36 Пары соседних элементов с суммой > 50:  34  23  42  30  30  36

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;   a.Pairwise.Where(x->x[0]+x[1]>50).Println; end. Пример n= 15 -59 52 29 -81 -80 52 69 -43 30 74 -24 -15 50 47 0 (52,29) (52,69) (30,74) (50,47)