Напишите программу, позволяющую ввести 9 элементов, кратных 3. (через IF). Паскаль. Массив.

var arr: array [1..9] of integer;

i, num: integer;

begin

i := 1;

while (i <= 9) do

 begin

   readln(num);

   if (num mod 3 = 0) then

     begin

       arr[i] := num;

       i := i + 1;

     end;

 end;

end.