Найти число пар соседних элементов массива, являющихся чётными числами. ABC Pascal !!!

Var N,a,i,sum: integer;begin//вводим исходные данныеwrite(\'Введите число N: \'); readln(N);write(\'Введите число a: \'); readln(a);//находим суммуsum:=0;for i:=1 to N do//проверяем, кратно ли число 5 и меньше ли aif (i mod 5 = 0) and (i<a) then sum:=sum+i; //выводwriteln(\'Сумма всех чисел от 1 до \', N, \', которые кратны 5 и не превышают \', a, \', равна \', sum);end.