{* Возведение в степень *}

Unit PROC_2;
Interface
Implementation
Begin
 writeln('Возведение в степень');
End.

Program proc_2;

Uses proc_2.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a : byte;
  b : byte;
  c : byte;
  d : byte;
  z : byte;
  y : byte;
  x : real;
Function stepen(x, y : byte) : real;
Begin
  stepen := exp(y * ln(x));
End;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Vvedite chisla');
  readln(a, b, c, d);
  x := (stepen(a, b) + stepen(c, d)) / (stepen(b, a) + stepen(d, c));
  writeln('x = ', x : 5 : 2);
  readkey; {* Нажмите любую клавишу *}
End.