Дан массив целых чисел C(20) все нечетные элементы поменять на кубы

const R=20; //размер массива
Var a: array [1..R] of integer;
i: integer;
begin
//наполняем массив рандомными числами от 0 до 20
for i:=1 to R do a[i]:=random(20);
//выводим начальный массив
write (Начальный массив: );
for i:=1 to R do write (a[i], );
Writeln();
//Производим проверку: если элемент нечётный, то заменяем его на свой квадрат
for i:=1 to R do
begin
if (a[i] mod 2 = 1) then a[i]:=a[i]*a[i];
end;
//выводим новый массив
write (Новый массив: );
for i:=1 to R do write (a[i], );
end.