Обьясните плз почему когда я ввожу например n=четное число(65) тогда всё работает нормально а если ввожу нечетное(66) то ответ получается 0.
Собственно задание: Задан одномерный массив Y[n]. Вычислить сумму квадратов нечетных элементов массива.

вот моя программа(предупреждаю сразу моё знание паскаля на уровне ознакомление)

Program A123;
var
i,n: integer;
Y: array[1..100] of integer;
s: real;

begin
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
Y[i]:=random(10);
end;
s:=0;
if (i mod 2=0) then

for i:=1 to n do
begin
s:=s+sqrt(Y[i]);
end;
writeln('Сумма квадратных корней нечетных элементов массива = ',s);
end.

Вы проверяете индекс i, который по окончании цикла for имеет неопределённое значение.
А по условию задачи надо проверять

if для проверки нечётности снаружи for, а должен быть внутри