Написать программу которая выводит на экран четные числа из интервала от 10 до 25 в Паскаль abc

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


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

При алфавитном подходе рассматривается не содержание текста, а его размер.
Зная количество символов в алфавите (это его мощность N), определяем информационный вес i алфавита в битах,используя формулу 2^i=N , затем по формуле J=K*i определяем информационный объем текста (количество информации) K-количество символов в тексте
Например, текст составлен на современном компьютере (русский алфавит -прописные и строчные, английский  алфавит-загл и прописные, цифры, знаки) Всего 256 символов Значит мощность алфавита N=256  Информационный вес символа i получаем из равенства 2^i=256   i=8 бит  (2^i=N)
Считаем количество символов К текста, включая пробелы и по формуле считаем J- информационный объем (получаем в битах) Если необходимо полученный результат переводим в более крупные единицы.