Даны натуральное число n, целые a, x1 , … , xn. С клавиатуры вводится число а. Если в последовательности x1 , ... , xn есть хотя бы один член, равный a , то получите сумму всех членов, следующих за первым таким членом; в противном случае ответом должно быть число -1.

varx:array [1..1000] of integer;a, n, i, j, sum: integer;beginread(n, a);for i := 1 to n doread(x[i]);i := 1;while (x[i] <> a) and (i <= n) doinc(i);if i > n thenwriteln(-1)else beginfor j := i + 1 to n dosum := sum + x[j];writeln(sum);end;end.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var x:=ArrRandom(ReadInteger('n='),1,99);  Writeln('Исходная последовательность'); x.Println;  var a:=ReadInteger('a=');  var i:=x.FindIndex(e->e=a);  if i<0 then Writeln(-1)  else    if i<x.Length-1 then Writeln(x[i+1:].Sum)    else Writeln(0)end.Тестовое решение:n= 15Исходная последовательность26 50 92 84 30 60 9 95 46 47 59 54 97 11 36a= 59198