Question

Определите, что будет напечатано в результате работы следующей программы.
Var s, k: integer;
Begin
s:=1
for k:=1 to 5 do
s:=s*k;
write (k);
End.