program expon2(output);var	pi, spi: real;function power(x: real; y: integer): real;	var		z: real;	begin		z := 1;		while y>0 do		begin			while not odd(y) do			begin				y := y div 2;				x := sqr(x);			end;			y := y-1;			z := x*z;		end;		power := z;	end;begin	pi := 3.14159;	writeln(2.0, 7, power(2.0, 7));	spi := power(pi, 2);	writeln(pi, 2, spi);	writeln(spi, 2, power(spi, 2));	writeln(pi, 4, power(pi, 4));end.