15 FUNCTION Power ( X, N :integer) : Integer; Var Result :integer; Begin Result :=1; while N > 0 do Begin result := result * X; N := N-1; End; power : result; end;