Заполнить массив A(21) случайными числами в диапазоне от -1 до 17. Выведите его на экран. Pascal abc 9 класс

const n=21; var a:array[1..n] of real; i:integer; begin randomize; for i:=1 to n do begin a[i]:=random(18)+-1; write(a[i],' '); end; end.