program TestIToN (input, output);
{ main program to test function IToN as a solution to problem 7.13 }

var I, N, Power: integer;

function IToN (I, N: integer): integer; external;

begin
  writeln ('Enter I (the number) and N (the exponent)');
  readln (I, N);
  Power := IToN (I, N);
  writeln (I:4, ' to the', N:4, ' is', Power);
end.