[PANTHEON]

Даны натуральное число n, целые числа А, Х1, ..., Хn. Если в последова-
тельности есть хотя бы один элемент, равный А, то получить сумму всех элементов,
следующих за первым таким элементом; в противном случае ответом должно быть
число 10.

[@Rafa3L]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

const  n = 30;  A = 5; var  i, sm: integer;  X: array[1..n] of integer; begin  for i := Low(X) to High(X) do X[i]:= i;  sm:= 0;  if A < n then   for i := A+1 to High(X) do Inc(sm, X[i])  else sm:= 10;  ShowMessage('Ответ: ' + IntToStr(sm)); end;