массив из 15 элементов из интервала от -10до10 вывести в строку. на куб этого числа,вывести повторно.

спасибо

пожалуйста

вот не уверенна, что правильно Program A1;Uses crt;Var A: array [1..15] of integer;i: integer;Begin clrscr;for i:=1 to 15 dobegina[i]:= random (10-(-10)+1)+(-10);write (a[i],' ');end;writeln;for i:=1 to 15 dobeginif i mod 2=0 then a[i]:=5;end;for i:=1 to 15 dowrite {a[i].' ');readln;readkey;end.