Составьте программу, которая заполняет массив a[1… 10] случайными целыми числами в…

var a: array[1… 10]of integer; i: integer; beginfor i: =1 to 10 do a[i]: =random (10)+1; for i: =1 to 10 do write (a[i],'); writeln; for i: =2 to 10 do if i mod 2=0 then a[i]: =sqr (a[i]); for i: =1 to 10 do write (a[i],'); end.