ПАСКАЛЬ АВС. МАССИВЫ. Сформировать целочисленный массив…

Uses crt; var a: array [1… 15] of integer; x,sum: integer; sr: real; begin randomize; sum: =0; for x: =1 to 15 do begin a[x]: =random (15)+1; sum: =sum+a[x]; writeln ('a[',x,']: ',a[x]); end; sr: =sum/15; writeln; for x: =1 to 15 do if a[x]>sr then write (a[x]: 3); end.