Дана последовательность натуральных чисел a ,..a_1 и целое число х.Если в последовательности a ,..a_1 есть хотя бы один член, равный х, то получить сумму всех членов, следующих за первым таким членом; в противном случае ответом должно быть сообщение «не найдено!».

Pascal

• var x, a, sum, n: integer; b: boolean;
• begin
• Write('Введите x: ');
• Read(x);
• Write('Введите длину последовательности: ');
• Read(n);
• Write('Введите элементы последовательности: ');
• for var i := 1 to n do
• begin
•  Read(a);
•  if b then sum += a;
•  if a=x then b := True
• end;
• if b then Write(sum)
• else Write('не найдено!')
• end.

1. Забыл i вынести в глобальные, кому нужен Turbo/Free.
   var x, a, sum, n, i: integer; b: boolean;
   for i := 1 to n do