var x1:real;
function Z(x:real):real;
begin
Z:=ln(x)+tg(2*x);
end;
x1:=3;
while x1<=8 do
Writeln('Z=', z(x1));
x1:=x1+0.9;
end.
var x1:real;
function Z(x:real):real;
begin
Z:=ln(x)+tg(2*x);
end;
begin
x1:=3;
while x1<=8 do
begin
Writeln('Z=', z(x1));
x1:=x1+0.9;
end;
end.