Определить есть ли пара соседних элементов с суммой равной заданному числу. Составить на Паскале программу (массивы)

Предыдущий
вопрос Следующий
вопрос

program SumOfTwoNeighbours;

cons
N = 5;

va
arr: array[1..N] of integer
num: integer
i: integer;

function CheckSum(num: integer; arr: array of integer): boolean
va
i: integer
begi
for i := 1 to Length(arr) - 1 d
begi
if (arr[i] + arr[i + 1] = num) the
begi
CheckSum := true
Exit
end
end
CheckSum := false
end;

begi
// Ввод элементов массив
writeln('Введите элементы массива:')
for i := 1 to N d
begi
write('arr[', i, '] = ')
readln(arr[i])
end;

// Ввод числ
writeln('Введите число:')
readln(num);

// Проверка наличия пары соседних элементов с заданной суммо
if CheckSum(num, arr) the
writeln('Есть пара соседних элементов с суммой ', num
els
writeln('Нет пары соседних элементов с суммой ', num)
end.