)дана последовательность чисел стирлинга. числа стирлинга s(n,k) определены для 0≤k≤n и удовлетворяют следующим соотношениям: s(0,0)=1, s(n,0)=0 для n> 0, s(n,n)=1 для n> 0, иначе s(n,k)=k*s(n-1,k)+s(n-1,k-1). для n=15, k=13 найти и вывести число стирлинга s(n,k).

Function ster(n,k:integer):integer;
begin
if k=0 then
  if n=0 then ster:=1
  else ster:=0
else if n=k then
       ster:=1
       else  ster:=k*ster(n-1,k)+ster(n-1,k-1)
end;

begin
writeln(ster(15,13));
end.