ввести последоватьльность с клавиатуры и расположить элементы кратные трём по убыванию
решить в паскале

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Вводите:', n);

 a.Where(p -> p mod 3 = 0).SortedDescending.Println

end.