Program a6_23;
uses crt;
var k,n:longint;
function step(osn,pok:longint):longint;
  begin
     if pok=0 then step:=1
     else step:=osn*step(osn,pok-1);
  end;
function quantity(k,n:longint):longint;
  begin
    quantity:=step(n,k-1)*(n-1);
  end;
BEGIN
write('Введите числа k и n: ');
readln(k,n);
writeln('Количество k-значных n-ичных чисел: ',quantity(k,n));
readln;
END.