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

var a:array[1..16]of integer; i,k:integer; begin for i:=1 to 16 do begin a[i]:=random(41)-20; write(a[i],' '); end; for i:=1 to 16 do if (a[i] mod 3=0) and (a[i]<>0) then begin writeln('est'); k:=1; break; end; if k<>1 then writeln('net'); end.

var   a: array [1..16] of integer;  //Массив из 16 целых чисел   i: integer;   b: boolean;  {Логическая переменная (найдено ли хотя бы одно число, кратное трем)}   begin   b:= false;  //Ни одного числа, кратного трем еще не найдено   write('Исходный массив:  ');   for i:= 1 to 16 do  {Заполняем исходный массив случайными числами от - 20 до 20 и распечатываем его}   begin     a[i]:= random(40) - 20;     write(a[i], '  ');   end;   writeln;   for i:= 1 to 16 do  //Определяем, есть ли в массиве хотя бы одно число, кратно трём, и если есть, то выходим из цикла      if (a[i] mod 3 = 0) and (a[i] <> 0) then     begin       writeln('В массиве есть хотя бы одно число, кратное трём');       b:= true;       break;     end;   if b = false then writeln('В массиве нет ни одного числа, кратного трём'); end. Если все правильно, отметь решение как лучшее)