Решите пожалуйста мои задачки (их две)

[matrix8325]

1.Дано а.Не используя никаких функций и ни каких операций,кроме умножения,получить a в степени 8 за три операции и a в степени 10 за четыре операции.
2.Найти (в радианах в градусах) все угла треугольника со сторонами a,d,c.
(на Delphi 7)

[Chudo4258]

1:

a:=a*a; {a^2}
a:=a*a; {a^4}
a:=a*a; {a^8}

b:=a*a; {a^2}
c:=b*b; {a^4}
d:=b*b; {a^8}
e:=d*b; {a^10}

[megachuhancer]

2:

function angle(x1,y1,x2,y2,x3,y3:longint):real;
var
	cos,dx1,dy1,dx2,dy2,len1,len2,buf:real;
begin
	dx1:=x1-x2;
	dy1:=y1-y2;
	dx2:=x3-x2;
	dy2:=y3-y2;
	len1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
	len2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
	cos:=(dx1*dx2+dy1*dy2)/(len1*len2);
	if cos=0 then
		begin
			angle:=pi/2;
			exit;
		end;
	if cos<-1 then
		cos:=-1;
	if cos>1 then
		cos:=1;
	buf:=arctan(sqrt(1-sqr(cos))/cos);
	if (buf<0) then buf:=buf+pi;
	if(buf=0)and(cos=-1)then buf:=buf+pi;
	angle:=buf;
end;

Эта функция не совсем то что нужно, но:
1) её можно переделать
или
2) поместить одну из вершин треугольника в начало координат. Координаты других найти нетрудно, зная стороны треугольника.