begin 

integer  T,K

integerfn  f(integer  x)
{}write(x,2); printsymbol(':')
  x = (T-x)*x
{}write(x,10); newline
  result  = x
end 

integerfn  sigma(integer  lo,hi)
integer  i,n=0
  n = n+f(i) for  i=lo,1,hi
  result =n
end 

cycle 
  prompt("T="); read(T)
  prompt("K="); read(K)
  write(sigma(1,K),0); newline
repeat 

endofprogram