Массив из 10 элементов

Uses crt; var a: array[1… 10] of integer; i: integer; beginrandomize; for i: =1 to 10 do begin a[i]: =random (61) -35; write (a[i]: 4); end; writeln; for i: =1 to 10 do begin write (a[i]-16:4); end; end.