Var s,k: integer;
Begin
s := 1;
for k := 1 to 17 do
s := (k-5)*s;
writeln(s);
End.
Напишите ответ пожалуйста!

• не будет вывода, будет Синтаксическая ошибка, нельзя отнимать от массива игровое число