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.