Помогите пожалуйста по информатике с массивами!!!
Введите с клавиатуры 10 целочисленных элементов массива X. Выведите на экран значения корней и квадратов каждого из элементов массива. Получите для массива среднее арифметическое. Найти сумму элементов массива, имеющих нечетные номера.
Срочно!!!

Огромное спасибо!!!

//#MASLONOK TUPA ZABLIK #MASLAED

VarX:array[1..10] of integer;i,sred,summ:integer;beginfor i:=1 to 10 do beginwriteln('X[',i,']'):readln(X[i]);end;for i:= 1 to 10 do writeln(sqr(A[i]));for i:=1 to 10 do sred:=sred+A[i];writeln('Sred.Arf.=',sred/10);for i:=1 to 10 do if (i mod 2 <>0) then summ:=summ+A[i];end.