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

Var
a:array[1..16]of integer;
i:integer;
fl:boolean;
begin
randomize;
for i:= 1 to 16 do
begin
a[i]:=-20 + random(41);
Write(a[i], ' ');
if a[i] mod 3 = 0 then fl := true;
end;
Writeln();
if fl then Writeln('YES')
else Writeln('NO');
end.