with Ada.Numerics, Ada.Numerics.Elementary_Functions;
use Ada.Numerics, Ada.Numerics.Elementary_Functions;
with text_io; use text_io;

procedure Numerics is
begin
	for i in 1..10 loop
		Put_line( "sin(16*pi/2**" & integer'image(i) & ") = " &
				float'image(Sin(16.0*pi/2.0**float(i))) );
	end loop;
	New_Line;
	for i in 1..12 loop
		Put_Line( "sin(" & integer'image(i*30) & " fok ) = " &
				float'image(Sin(float(i*30),360.0)) );
	end loop;
end Numerics;