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