В первом уравнении корень единица, это и без паЧкаля видно.
Для второго уравнения вот тебе программка. Это называется "метод половинного деления".
При желании можешь заменить F(x) на заданную в первом уравнении, но не забудь поменять границы интервала [a,b].

program Masha;
uses DOS;
const eps=0.0001;

Function Pow(a : real; b : real) : real;
begin
{ Pow(a, == a^b }
Pow := Exp( b * Ln(a));
end;

Function F(x : real) : real;
begin
F := Pow(3,x) - Pow(3,6/x) - 1;
end;

var a, b, x : real;
var fa, fb, fx : real;
var vloop : boolean;

begin
a := 1;
b := 6;
vloop := true;
while (vloop) do
begin
fa := F(a);
fb := F(;
x := (a + / 2;
fx := F(x);
vloop := (Abs(fx) > eps);
if (vloop) then
begin
if (fa * fx > 0) then
begin
a := x;
end
else
begin
b := x;
end
end
end;
WriteLn(x, fx);
End.



Опс! Вместо рожи в теле программы надо читать " b ) "