Помогите, пожалуйста, очень нужно! Срочно!:(

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

Информатика 10 класс Алгоритмы и программирование алгоритмы Паскаль возведение в степень равносторонний треугольник площадь треугольника высота треугольника радиус окружности перевод байтов единицы измерения информации программирование на паскале минимальные переменные Новый

1. Алгоритмы вычисления:

а) y = x^10:

var
  x, y: real;
begin
  readln(x);
  y := x * x * x * x * x * x * x * x * x * x; // x^10
  writeln(y);
end.

б) y = x^15:

var
  x, y: real;
begin
  readln(x);
  y := x * x * x * x * x * x * x * x * x * x * x * x * x * x * x; // x^15
  writeln(y);
end.

2. Площадь равностороннего треугольника и его характеристики:

var
  a, area, height, r_in, r_out: real;
begin
  readln(a);
  area := (sqrt(3)/4) * a * a; // Площадь
  height := (sqrt(3)/2) * a; // Высота
  r_in := area / (a * 3); // Радиус вписанной окружности
  r_out := (a / (sqrt(3))); // Радиус описанной окружности
  writeln('Площадь: ', area);
  writeln('Высота: ', height);
  writeln('Радиус вписанной: ', r_in);
  writeln('Радиус описанной: ', r_out);
end.

3. Перевод объёма информации в более крупные единицы:

var
  A: integer;
  KB, MB, GB: real;
begin
  readln(A);
  KB := A / 1024; // Килобайты
  MB := KB / 1024; // Мегабайты
  GB := MB / 1024; // Гигабайты
  writeln('Килобайты: ', KB);
  writeln('Мегабайты: ', MB);
  writeln('Гигабайты: ', GB);
end.