Дан массив из 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

readln
end.