составить программу вычисления степени и корня введенного числа в соответствии с положением переключателя. Предусмотреть, чтобы пользователь мог ввест

var
chislo, stepen:integer;
begin
try
// проверка ввода числа
if (not TryStrtoInt(edit1.Text, chislo)) or (not TryStrtoInt(edit2.Text, stepen)) then
ShowMessage('Введите число!');
except;
chislo :=StrtoInt(edit1.Text);
stepen :=StrtoInt(edit2.Text);
 
if RadioButton1.Checked then //если выбран 1-й переключатель, то
edit3.Text :=floattostr(power(chislo, stepen)) //возведение числа в степень (функция power)
else //иначе, т.е. выбран 2-й переключатель
edit3.Text :=floattostr(power(chislo, 1/stepen));//извлечение корня n-й степени
end;
end;
end.

exp(stepen*(ln(chislo)));

exp(1/stepen*(ln(chislo)));

edit3.Text :=floattostr(power(chislo, stepen)) //возведение числа в степень (функция power)
else
edit3.Text :=floattostr(power(chislo, 1/stepen));//извлечение корня n-й степени

edit3.Text :=inttostr(power(chislo, stepen)) //возведение числа в степень (функция power)
else
edit3.Text :=inttostr(power(chislo, 1/stepen));//извлечение корня n-й степени

uses
Math;
 
implementation
 
{$R *.dfm}
 
 function ValueStr(const S: string): Boolean; //функция проверки ввода числовых значений
   var I: Cardinal;
begin
    Result:=True;
   for I:=1 to Length(S) do
   if (S[I] in ['0'..'9']) = False then
   begin
   Result:=False;
   Break;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
chislo, stepen:real;
begin
// проверка ввода числа
if (not ValueStr(edit1.Text)) or(not ValueStr(edit2.Text))  then
ShowMessage('Введите число!');
 
chislo :=strtofloat(edit1.Text);
stepen :=strtofloat(edit2.Text);
if RadioButton1.Checked then 
edit3.Text :=floattostr(power(chislo, stepen)) 
else
edit3.Text :=floattostr(power(chislo, 1/stepen));
end;
end.