с while'ом
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;
в ответе постоянно получается 1.
что это значит?