program MultipleOfThree;

var
arr: array[1..9] of Integer;
i: Integer;

begin
for i := 1 to 9 do
begin
repeat
Write('Введите ', i, '-й элемент массива (кратный 3): ');
ReadLn(arr[i]);

if (arr[i] mod 3 <> 0) then
WriteLn('Элемент не кратен 3, пожалуйста введите другое число.');
until (arr[i] mod 3 = 0);

end;

WriteLn('Введенные элементы массива (кратные 3):');
for i := 1 to 9 do
begin
WriteLn(arr[i]);
end;
end.