С ПОДРОБНЫМ РЕШЕНИЕМ

Петя от­ре­дак­ти­ро­вал текст, каж­дая стра­ни­ца которого со­дер­жит 32 стро­ки, в каж­дой стро­ке 64 сим­во­ла. После редактирования объём текста увеличился на 3 стра­ни­цы. Каж­дый сим­вол в статье ко­ди­ру­ет­ся 16 битами. Опре­де­ли­те ин­фор­ма­ци­он­ный объём ста­тьи в Кбай­тах в этом ва­ри­ан­те пред­став­ле­ния Unicode после ре­дак­ти­ро­ва­ния, если ин­фор­ма­ци­он­ный объём текста до ре­дак­ти­ро­ва­ния был равен 2 Мбайт.​

Var
  x, a, b, c, y: integer;

begin
  Write('Введите целое трехзначное положительное число ->');
  Readln(x);
  a := x mod 10;
  y := 100 * a + (x div 10);
  Writeln('Первоначальное число было: ', y);
  b := y mod 100;
  Writeln('Зачеркнули первую цифру: ', b);
  b := 10 * b;
  Writeln('Умножили на 10: ', b);
  b := b + (y div 100);
  Writeln('Прибавили зачеркнутую цифру: ', b);
  Writeln('И получили введенное нами число - результат')
end.

Тестовое решение:
Введите целое трехзначное положительное число ->183
Первоначальное число было: 318
Зачеркнули первую цифру: 18
Умножили на 10: 180
Прибавили зачеркнутую цифру: 183
И получили введенное нами число - результат

Var
  a, b: real;

begin
  Write('Введите два числа через пробел ');
  Readln(a, b);
  Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2);
  Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b)))
end.

Тестовое решение:
Введите два числа через пробел -13.5 17.43
Среднее арифметическое кубов равно 1417.4722035
Среднее геометрическое модулей равно 15.3396544941534


Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.