С! заполните массив из 9 элементов целыми числами из интервала [-15; 24] и выведите на экран в строку через "; ". язык программирования - pascal

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

Пример:
16;23;-9;-3;5;18;19;0;11;

Var n, i: integer; begin    randomize;
    for i := 1 to 8 do begin        n := random (39) - 15;        write (n,';');    end; n := random (39) - 15;        write (n);end.