function Hezka(base, exp : integer) : integer
   var
      i, temp : integer;
   begin
      temp:=base;
      if exp <> 0 then
         for i:=1 to (exp-1) do
            temp:=temp * base;
      else
         temp:=1;
      Hezka:=temp;
   end;