Var
 i,j:Integer;
 x,y,Xmax,Ymax,Xmin,Ymin:Real;

Function F(z:real):Real;
begin
 if z<2 then F:=z else
 if (z>=2) and (z<8) then F:=z*z+Sin(z) else
 F:=Exp(z/4)-3;
end;

Begin
 Xmax:=0;
 Ymax:=0;
 Xmin:=0;
 Ymin:=0;
 Writeln('   x     y        x     y        x     y        x     y        x     y');
 Writeln('  0.0',F(0):7:3);
 for i:=1 to 20 do
  begin
   for j:=0 to 4 do
    begin
     x:=(i+j*20)*0.1;
     y:=F(x);
     if y>Ymax then
      begin
       Xmax:=x;
       Ymax:=y;
      end;
     if y<Ymin then
      begin
       Xmin:=x;
       Ymin:=y;
      end;
     Write(x:5:1,y:7:3,'   ');
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Min: Y(',Xmin:0:1,') = ',Ymin:0:3,'     Max: Y(',Xmax:0:1,') = ',Ymax:0:3);
 Readln
End.