Составьте программы на паскале для решения № 6-9 из к § 34. при этом отмените ограничения на количество операций в арифметическом выражении, сформулированные в условиях .

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;