дан массив N элементов. вывести квадраты элементов с нечётными номерами
If I mod 2=1 then writeln(a[i]^2);