Составьте программу которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и определяет, есть ли в этом массиве хотя бы одно число, кратное трём

Var
  a: array [1..16] of integer;
  i, c: integer;
 
begin
for i:=1 to 16 do
  begin
    a[i]:=random(-20,20);
    Writeln(a[,i,]= ,a[i]);
  end;
 
for i:=1 to 16 do
  if (a[i] mod 3 = 0) then
    c:=c+1;
   
if c > 0 then
  Writeln(В получившемся массиве , c, чисел, кратных трём.)
else
  Writeln(В данном массиве нет чисел, кратных трём.);
 
end.