PROGRAM TSTAN2;

CONST
    PI = 3.1415927;

VAR
    RC,
    THETAR,
    THETAD   : REAL;
    RESPONSE : CHAR;
    FAILURE  : BOOLEAN;
 
{$ITRIGLIB.PAS }

BEGIN
 REPEAT
 WRITE('SUBMIT A REGRESSION COEFFICIENT TO BE CONVERTED TO THE CORRESPONDING');
 WRITELN(' SLOPE ANGLE.');
 READ(RC);
 THETAR := ANTITAN(RC);
 THETAD := RAD2DEGREES(THETAR);
 WRITE(' ANGLE =',THETAR:7:3,' RADIANS | = ',THETAD:7:3,'DEGREES | ');
 WRITELN('TAN[THETA] =',TAN(THETAR):7:3);
 WRITE('  SINE =',SIN(THETAR):7:3);
 WRITELN(' |  ARCSINE = ',ARCSINE(SIN(THETAR)):7:3);
 WRITE('COSINE =',COS(THETAR):7:3);
 WRITELN(' | ARCOSINE = ',ARCOSINE(COS(THETAR)):7:3);
 WRITELN('TRY AGAIN? {"X" = EXIT, ELSE =  CONTINUE}');
 READ(RESPONSE);
 UNTIL RESPONSE = 'X'
END.