Дано целое число b и натуральное целое (неотрицательное число) m. вычислить b в степени m

Выполняем перенос начала координат в центральную точку, затем поворачиваем фигуру и возвращаем начало координат на место. // pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! type   point=(real,real);   figure=array of point; function moveto(self: figure; pp: point): figure; extensionmethod; begin   var n: =self.count;   result: =new point[n];   for var i: =0 to n-1 do       result[i]: =(self[i][0]-pp[0],self[i][1]-pp[1]) end; function rotate(self: figure; angle: real): figure; extensionmethod; begin   var mr: =new real[2,2];   mr[0,0]: =cos(angle); mr[0,1]: =sin(angle);   mr[1,0]: =-mr[0,1]; mr[1,1]: =mr[0,0];   var n: =self.count;   result: =new point[n];   for var i: =0 to n-1 do       result[i]: =(self[i][0]*mr[0,0]+self[i][1]*mr[1,0],           self[i][0]*mr[0,1]+self[i][1]*mr[1,1]) end; function movefrom(self: figure; pp: point): figure; extensionmethod; begin   var n: =self.count;   result: =new point[n];   for var i: =0 to n-1 do       result[i]: =(self[i][0]+pp[0],self[i][1]+pp[1]) end; procedure print(p: figure; w,d: integer); begin   foreach var t in p do       writeln(t[0]: w: d,' ',t[1]: w: d) end; begin   var center: point: =(5.0,3.0);   var rectangle: figure;   setlength(rectangle,4);   rectangle[0]: =(3.0,2.0);   rectangle[1]: =(7.0,2.0);   rectangle[2]: =(7.0,4.0);   rectangle[3]: =(3.0,4.0);   var angle: =30;   var p: =rectangle.moveto(center).rotate(degtorad((center);   writeln('новые координаты');   print(p,9,5) end. результат новые координаты   3.76795    1.13397   7.23205    3.13397   6.23205    4.86603   2.76795    2.86603