Составить программу, нахождение степени числа, используя подпрограмму (функцию нахождения степени).Программа должна облодать интерфейсом (На паскале с описаниями)

Просто нужна программа с функцией рабочая с описанием в паскале

power() для чего, хех? Попытаюсь расписать как оно работает в комментариях к коду.

главное чтобы программа была рабочей

Описани можно и потом

Добавил.

//Pascal ABC.NET 3.1 сборка 1219//Вариант с нормальным интерфейсомuses system,system.Windows.Forms;Var myForm:Form; myButton:Button; myTextBox1:TextBox; myTextBox2:TextBox; myTextBoxRez:TextBox;procedure MyButtonClick(sender:Object;e:EventArgs);Var  i,ar,a,b:integer;begina:=strtoint(myTextBox1.text);b:=strtoint(myTextBox2.text);ar:=1; for i:=1 to b do  ar:=ar*a; myTextBoxRez.Text:=ar.ToString;end; beginmyForm:=new Form; //создание объекта - формы   myform.Left:=500;   myform.top:=500;   myform.AutoSize:=true;   myform.Width:=300;   myform.Height:=100;myTextBox1:=new TextBox; //создание объекта - текстового поля для числаmyTextBox1.Left:=80;   myTextBox1.Top:=40;   myTextBox1.Enabled:=true;   myTextBox1.Width:=105;   myTextBox1.Height:=100;   myTextBox1.MaxLength:=16;   myTextBox1.ReadOnly:=false;   myTextBox1.Visible:=true;myTextBox2:=new TextBox; //создание объекта - текстового поля для степениmyTextBox2.Left:=80;   myTextBox2.Top:=80;   myTextBox2.Enabled:=true;   myTextBox2.Width:=105;   myTextBox2.Height:=100;   myTextBox2.MaxLength:=16;   myTextBox2.ReadOnly:=false;   myTextBox2.Visible:=true;myTextBoxRez:=new TextBox; //создание объекта - текстового поля для результатаmyTextBoxRez.Left:=80;   myTextBoxRez.Top:=120;   myTextBoxRez.Enabled:=true;   myTextBoxRez.Width:=105;   myTextBoxRez.Height:=100;   myTextBoxRez.MaxLength:=16;   myTextBoxRez.ReadOnly:=true;   myTextBoxRez.Visible:=true;myButton:=new Button; //создание объекта - кнопки   myButton.Text:='^';   myButton.Left:=80;   myButton.top:=160;   myButton.AutoSize:=true;myForm.Controls.Add(myTextBox1);myForm.Controls.Add(myTextBox2);myForm.Controls.Add(myTextBoxRez);myForm.Controls.Add(myButton);myButton.click+=MyButtonClick;Application.Run(myForm);end.//Вариант с CRTUses Crt;Var a,b:integer; function fpow(a,b:integer):integer;Var rez,i:integer;beginrez:=1; //чтобы не было 0for i:=1 to b do //умножаем rez на a b раз чтобы получить нужную степеньrez:=rez*a;fpow:=rez;end;beginclrscr;Write('Введите число:');readln(a);write('Введите требуемую степень числа:');readln(b);writeln('Результат:',fpow(a,b));end.Пример ввода:210Пример вывода:1024