VAR
 a,b,h,t:Real;
 N,i:Word;

Function X(Tx:Real):Real;
begin
 X:=0.5*(Exp(Tx)+Exp(-Tx))-Tx;
end;

Function Y(Ty:Real):Real;
begin
 Y:=0.5*(Exp(Ty)-Exp(-Ty))-1;
end;

BEGIN
 Write('Lower T value = ');
 ReadLn(a);
 Write('Upper T value = ');
 ReadLn(b);
 Write('Step T value = ');
 ReadLn(h);
 N:=Trunc((b-a)/h);
 For i:=0 to N do
  begin
   t:=a+h*i;
   WriteLn(X(t):10:5,Y(t):20:5);
  end;
 Readln;
END.