Определить значение выражения n^m+m^n/(n+m)^n+m ,используя подпрограмму для вычисления степени числа

Pascal
Как то так:
 function P (a,b : integer) : integer;  //a^b
var   
   i,r : integer; 
begin   r := 1;   
for i := 1 to b do   
r := r * a;   
Result := r; 
end;    

var   
n,m : integer;   
r : real; 
begin 
n := 2; 
m := 3;   
r := P(n,m)+P(m,n)/P(n+m,n)+m;
writeln (r); 
end.