PascalABC.NET
begin
var k := ReadInteger('Введите k:');
var y := 1;
for var i := 1 to k - 2 do
Y := y*i;
print('ответ:',y)
end.
