y=(k-2)! нужна программа в паскале!​

                                            PascalABC.NET

begin

 var k := ReadInteger('Введите k:');

 var y := 1;

 for var i := 1 to k - 2 do

   Y := y*i;

   print('Ответ:',y)

end.