Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль

1)а

var a:real;

begin

readln(a);

a1 := a*a;  /получили а^2a := a1*a1;  /получили a^4

a := a1*a*a;  /получили a^(4+4+2)

writeln(a);

end.

1б)

var x:real;

i:integer;

begin

readln(a);

a1 := a*a*a;  /получили а^3a := a1*a1*a1;  /получили a^9

a := 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.