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

Var x: array [1..1000] of integer; a, n, i, j, sum: integer; begin read(n, a); for i : = 1 to n do read(x[i]); i : = 1; while (x[i] < > a) and (i < = n) do inc(i); if i > n then writeln(-1) else begin for j : = i + 1 to n do sum : = sum + x[j]; writeln(sum); end; end.

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   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 36 a= 59 198