Помогите, пожалуйста, очень нужно! Срочно! 1) Не используя функцию возведения в…

1) аvar a: real; beginreadln (a); a1: =a*a; /получили а^2a: =a1*a1; /получили a^4a: =a1*a*a; /получили a^ (4+4+2) writeln (a); end. 1 б) var x: real; i: integer; beginreadln (a); a1: =a*a*a; /получили а^3a: =a1*a1*a1; /получили a^9a: =a*a1*a1; /получили а^ (9+3+3) writeln (a); end. 2) var a: real; beginreadln (a); writeln ('высоты равны', a*a*sqrt (3) /4*a); writeln ('Радиус вписанной окружности', a*a*a/4*a*a*sqrt (3) /4); writeln ('Радиус описанной окружности', a*a*sqrt (3) /4*2/3*a); end. 3) var a: real; beginreadln (a); writeln ('В килобайтах' a/1024); writeln ('В мегабайтах' a/ (1024*1024); end.