Составьте программу, которая заполняет массив А: [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.