составьте программу,которая заполняет массив А:[1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его,возводя в квадрат все элементы с четными индексами

Program Program1;vara:array [1..10] of integer;i:integer;beginrandomize;Writeln('Исходный массив: ');for i:=1 to 10 dobegina[i]:=random(10)+1;writeln('a[',i,']=',a[i]);end;for i:=1 to 10 doif i mod 2 = 0 then a[i]:=sqr(a[i]);Writeln('Преобразованный массив: ');for i:=1 to 10 dowriteln('a[',i,']=',a[i]);end.