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

//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; begin a: =strtoint(mytextbox1.text); b: =strtoint(mytextbox2.text); ar: =1;   for i: =1 to b do   ar: =ar*a;   mytextboxrez.text: =ar.tostring; end;   begin myform: =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. //вариант с crt uses   crt; var   a,b: integer;   function fpow(a,b: integer): integer; var   rez,i: integer; begin rez: =1; //чтобы не было 0 for i: =1 to b do //умножаем rez на a b раз чтобы получить нужную степень rez: =rez*a; fpow: =rez; end; begin clrscr; write('введите число: '); readln(a); write('введите требуемую степень числа: '); readln(b); writeln('результат: ',fpow(a,b)); end. пример ввода: 2 10 пример вывода: 1024

Var a: array[1..25] of integer; i: integer; s: real; begin readln(n); for i: =1 to 25 do readln(a[i]); for i: =1 to 25 do s: =s+a[i]; s: =s/25; writeln(s); end.