====================================
P.S. Не уверен насчёт наличия функции power(x: real; y: integer): real в Borland TB, посему вот, на всякий, мне времени не жалко, раз уж взялся х)
function power(x: real; y: integer): real;
var
i: integer;
d: real := 1;
begin
for i := 1 to y do
d := d * x;
result := d;
end;