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