PROGRAM A11;
const
    s1 = -6;
    s2 = -1;
    h1 = 0.5;
    h2 = 0.25;
    h3 = 0.02;

var
  y,x, h:real;
  i,j,k:byte;
  
BEGIN

  x := s1;
  h := h1;
  while (x<=s2) do begin
    if (x>=-5) and (x<=-3) then
      writeln('x=',x,' y=', 2*sin(x-15) )
    else 
      if (x>=-3) and (x<=-1) then
        writeln('x=',x,' y=', cos(1-sin(x)) )
    else
      writeln('x=',x,' y не определен');
      
    if (x>=-6) and (x<=-4) then h:=h1
    else if (x<=-3) then h:=h2
    else if (x<=-2) then h:=h3
    else if (x<=-1) then h:=h2;
    
    x := x + h;
  end;

END.