Составить программу которая вычисляет произведение четных чисел от 1 до 50

//PascalABC.NET//Версия 3.3, сборка 1611beginwrite(range(1,50).Where(x->x.IsEven).Aggregate(Real(1),(x,y)->(x*y)));end.