[PANTHEON]

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

[@Rafa3L]

Код:

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;