задайте массив из 10 элемениов ,нечётные  по номерам элементы замените на квадраты значений этих элементов

program nechetkii;var i,n:integer;a:array[1..10]of integer;beginfor i:=1 to 10 do begina[i]:=i;if (a[i] mod 2=1) then a[i]:=a[i]*a[i];writeln(a[i]);end;end.vrode tak