Составьте программы на Паскале для решения задач № 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;