Вот

Вот я и решил задачу, которую вы мне давали.


program ex1;
var n,k,i,n1:integer;
v:string;
begin
readln (n,v);
k:=length(v);
writeln (n,' ',k);
n1:=n;
if n mod k = 0 then
           begin
           for i:=1 to (n div k)-1 do n1:=n1*(n-i*k);
           end
           else
           begin
           for i:=1 to n div k do n1:=n1*(n-i*k);
           end;
writeln (n1);
end.

Я не могу не закончить этот пост цитатой:
                "Это слишком легко... Или я что-то не так делаю?" А.С. Тертерян.

Ваш, неосмотрительно решивший задачу, автор