Pascal, составить на вход даётся число, определить произведение цифр числа кратных 3, если таких нет вывести на экран "нет".

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=abs(ReadInteger);
var a:=n.ToString.Select(x->x.ToDigit).Where(t->t mod 3=0);
if a.Count=0 then write('нет') else write(a.Aggregate(Real(1),(x,y)->x*y));
end.