Дан массив из N элементов. вывести квадраты элементов с начетными номерами.

var i, n: integer;arr: array[1..n] of integer; //массив целых чисел begin readln (n); // ввод размера массива for i := 1 to n do begin write (arr[i]* arr[i],\' \'); //вычисление и вывод квадрата элемента i := i + 2; //наращиваем счетчик на 2, так как нам нужны только нечетные элементы end readlnend.