Паскаль Найти произведение четных натуральных чисел, меньших 100

var x,y: integer; Beginx: =2; y: =1; while x<>100 doBeginy: =y*x; x: =x+2; end; write (y); End. Числа меньше ста, все правильно. Не понял причину, почему модератор отправил на доработку.