Составить программу для нахождения элемента массива равного Заданному числу N. Число N Задается с клавиатуры массив состоит из 25 целых чисел заданных с клавиатуры.

в объявленном массиве 25 элемент лишьний

От того, что я поставлю вместо числа 25 - число 24, программа по-другому не начнёт функционировать.

в этом я не сомневаюсь, прошу и мне всегда помогать с корректностью кода

var a: array[0..25] of Integer;b,i,n: integer;beginfor i:=0 to 24 dobeginwriteln('Введите ',i+1,' число');readln(b);a[i]:=b;end;writeln('Какое число найти?');readln(n);for i:=0 to 24 dobeginif a[i]=n then writeln('Число ',n,' - ',i,'-ый элемент в массиве');end;end.