PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (k, p) := (0, int64(1));
ReadSeqInteger(ReadInteger('n =')).Where(t -> t mod 3 = 0)
.Foreach(t -> begin k += 1; p *= t end);
Write('Произведение ', k, ' элементов равно ', p)
end.
