PROGRAM SAMPLE87(INPUT,OUTPUT);

FUNCTION  TNHRQQ(A:REAL):REAL;EXTERN;
FUNCTION  SNHRQQ(A:REAL):REAL;EXTERN;
FUNCTION  CNHRQQ(A:REAL):REAL;EXTERN;

FUNCTION  ATNRQQ(A:REAL):REAL;EXTERN;
FUNCTION  ASNRQQ(A:REAL):REAL;EXTERN;
FUNCTION  ACSRQQ(A:REAL):REAL;EXTERN;



CONST
PI = 3.14127;
TEN = 10.0;

VAR
     X,Z	:REAL;
BEGIN
     X:=0.0;
     WHILE X <>900.0 DO
	BEGIN
		write('enter number ');readln(X);
		Z:=X;
		WRITELN('number(',X,')= ',Z);	

		Z:=TEN/X;
		WRITELN('TEN/',X,' = ',Z);	

		Z:=TEN*X;
		WRITELN('TEN*',X,' = ',Z);	


		Z:=SIN(X);
		WRITELN('sin (',X,')= ',Z);	

		Z:=cos(X);
		WRITELN('cos (',X,')= ',Z);	

		Z:=tan(X);
		WRITELN('tan (',X,')= ',Z);	



		Z:=tnhrqq(X);
		WRITELN('tanh (',X,')= ',Z);	

		Z:=cnhrqq(X);
		WRITELN('cosh (',X,')= ',Z);	

		Z:=snhrqq(X);
		WRITELN('sinh (',X,')= ',Z);	


		Z:=asnrqq(X);
		WRITELN('asin (',X,')= ',Z);	

		Z:=acsrqq(X);
		WRITELN('acos (',X,')= ',Z);	

		Z:=atnrqq(X);
		WRITELN('atan (',X,')= ',Z);	


		Z:=exp(X);
		WRITELN('exp (',X,')= ',Z);	

		Z:=ln(X);
		WRITELN('ln  (',X,')= ',Z);	

		Z:=SQR(X);
		WRITELN('sqr (',X,')= ',Z);	

		Z:=SQRT(X);
		WRITELN('SQRT(',X,')= ',Z)	

	END;
END.