Возвести в куб нечётные числа от 1 до 20 (В Паскале)

var a:array[0..19] of integer;i:integer;beginFor i:=0 to 19 dobegina[i] := i + 1;write(a[i], ' ');end;writeln();for i:=0 to 19 dobeginif i mod 2 = 0 then a[i] := a[i]*a[i]*a[i];write(a[i], ' ');end;end.