var k,z,a,b: real;
const h=0.02;
begin
  z:=0.8;  
  k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
  repeat
    z:=z+0.01;
    k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
  until (k>(-1.05));
  a:=z-h;
  repeat
    z:=z+0.01;
    k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
  until k>1.05;
  b:=z+h;
  writeln(' a = ',a:4:2,'   b = ',b:4:2);
{распечатка значений функции на интервале [a,b] }
  z:=a;
  k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);
  writeln('----------------');
  writeln('|  x   |   f   |');
  writeln('----------------');
  while z<=b+h do
  begin
    writeln('|',z:6:2,'|',k:7:3, '|');
    writeln('----------------');
    k:=sin(3.4*z*z*z)/cos(3.4*z*z*z)+cos(z+1.2);    
    z:=z+h;
  end;
end.