9 !! - ввод
945 - вывод
пишет wrong answer

var n,i:integer;
    res:longint;
    k:string;
begin
read(n,k);
i:=0;
res:=1;
 if n mod length(k)=0 then
 repeat
  res:=res*(n-i);
  inc(i,length(k));
 until n-i=length(k)
 else
  repeat
   res:=res*(n-i);
   inc(i,length(k));
  until n-i=1;
writeln(res);
end.

как решил

mne toje takoy:
---------------------
var
x,s:string; s1,j,i,c,l:longint;
begin
read(x);
repeat
i:=i+1;
s:=s+x[i];
until x[i]=' ';
l:=length(x)-i;
val(s,s1,c);
j:=s1;
repeat
j:=j-l;
s1:=s1*j;
until j<=1;
write(s1);
end.