Pascal, помогите составить

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

//PascalABC.NET//Версия 3.3, сборка 1634beginvar 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.