Найти произведение квадратов нечётных чисел от 1 до 99

Программа на Паскале прилагается.

//PascalABC.NET

begin

 var product: int64;  

 product := 1;

 var seq := range(1, 99).Where(x -> x mod 2 <> 0).Select(x -> x * x);

 foreach var x in seq do

   product := product * x;

 write(product);

end.