Дано натуральное число. Сформировать массив двузначных отрицательных чисел делящихся на 3 - Pascal

const n=20;
var a:array[1..n] of integer;
    i:byte;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=-3-random(34)*3;
  write(a[i]:4);
 end;
end.