напишите программу для вычисления n-ной степени  числа х.вычисления описать вкаждым из трех вариантов оператора цикла

      res:integer;
     
     t := t * t;

    end;

     
    power := res;
      end;

    k := k div 2;     //   {или напишите «k := k shr 1;» для большей скорости выполнения}

    res := 1;
       while (k > 0) do
       begin
     if (k mod 2 = 1) then  //   {или напишите «if (k and 1 = 1)» для большей скорости выполнения}
     
    res := res * t;

    begin
    var

  • function power(t, k: integer): integer; //возведение числа t в степень k