Паскаль. Массивы Напишите программу…

var a: array[1… 15] of integer; i: integer; begin randomize; writeln ('Сгенерированный массив: '); for i: =1 to 12 do begin a[i]: =random (31) — 10; write (a[i], '); end; writeln; end.