Найти сумму индексов элементов массива с четной целой частью - Free Pascal

Формулировка задачи:

Дан вещественный линейный массив на N элементов. Найти сумму индексов элементов массива с четной целой частью. Пример входного файла: 4 10.2 98.3 89.9 -843.53 Пример выходного файла: 3

Решение задачи: «Найти сумму индексов элементов массива с четной целой частью»

Листинг программы

Const n=5;
var a: array[1..n] of real;
i,k:integer;
begin
k:=0;
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
  if not odd(trunc(a[i])) then k:=k+i;
  //if trunc(a[i]) mod 2 = 0 then k:=k+i - можно и так
 end;
 writeln('k=',k);
readln;
end.

Объяснение кода листинга программы

Объявляются переменные: n типа integer, a типа array[1..n] of real, i типа integer, k типа integer.
Инициализируется переменная k нулем.
Происходит цикл от 1 до n.
В каждой итерации выводится сообщение a[i]= и происходит чтение значения элемента массива a[i].
Если значение элемента массива a[i] не является нечетным числом (odd), то к переменной k прибавляется значение i.
По завершению цикла выводится значение переменной k.
Программа ожидает ввода данных с помощью функции readln.