Цвет видимой части символа(его рисунка)отступы слева и справа текст копирование текста цвет символа !

Вот так пойдет?
дан массив. заменить элементы с нечетными номерами на квадраты их номеров.

program tt;uses wincrt;
type  Tmas=array[1..100] of real;
var  d,a:Tmas;  i,j,n:byte;
procedure enter_d(n:byte; var d:Tmas);
begin  
randomize;  
for i:=1 to n do begin    
d[i]:=random(40);    
write(d[i]:0:0,' ');  
end;
writeln;
end;

procedure form_a(n:byte;d:Tmas;var a:Tmas);
begin  
for i:=1 to n do begin    
if odd(i)=true then a[i]:=d[i]/i    
else a[i]:=sqr(d[i]); end;
end;

procedure show_a(a:Tmas);
begin  
for i:=1 to n do
write(a[i]:0:2,' ');
end;
end; 
BEGIN 
ClrScr;  writeln('Введите размер массива: '); 
readln(n); 
enter_d(n,d); 
form_a(n,d,a); 
show_a(a);
END.

{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать.
Должна работать, не работает - отпишись, отыщу паскаль и исправлю.
Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}

program massiv;
var x:array[1..10] of real;
n, i:integer;
s:real;

begin
writeln('Vvedite razmer massiva');
readln(n);
if (n<1) or (n>10) then writeln('Neverno zadano znacheniye razmera massiva')
else begin {check: +}
for i:=1 to n do begin writeln('Vvedite element ', i, 'iz ', n); readln(x[i]); end; {enter the array}
s:=0;
for i:=1 to n do
begin
s:=s+power(x[i], 3);
end;
writeln(s:2:2);
end;
readln; {stop here to read the program answer}
end.