Динамические переменные. Дано три числа. Найти их сумму, среднее арифметическое, произведение - Turbo Pascal

Формулировка задачи:

Помогите, пожалуйста, написать программу на паскале с объяснением, если можно. Задание: решить задачи, используя динамические переменные. Дано три числа. Найти их сумму, среднее арифметическое, произведение.

Решение задачи: «Динамические переменные. Дано три числа. Найти их сумму, среднее арифметическое, произведение»

Листинг программы

uses crt;
var a,b,c:^real;
begin
 clrscr;
  new(a);
  new(b);
  new(c);
 write('a=');
  readln(a^);
 write('b=');
  readln(b^);
 write('c=');
  readln(c^);
 writeln('Сумма ',a^:0:2,' , ',b^:0:2,' , ',c^:0:2,' = ',a^+b^+c^:0:2);
 writeln('Среднее арифметическое ',a^:0:2,' , ',b^:0:2,' , ',c^:0:2,' = ',(a^+b^+c^)/3:0:2);
 writeln('Произведение ',a^:0:2,' , ',b^:0:2,' , ',c^:0:2,' = ',(a^*b^*c^):0:2);
 dispose(a);
 dispose(b);
 dispose(c);
 readkey;
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая содержит функции для работы с консолью.
Затем объявляются три переменные типа real, которые будут использоваться для хранения чисел.
Функция clrscr() используется для очистки экрана перед вводом данных.
Далее происходит создание трех переменных типа real с помощью функции new().
После этого происходит ввод трех чисел с помощью функции readln().
Значения трех чисел сохраняются в переменных a, b и c.
Выводится сумма трех чисел с помощью функции writeln().
Выводится среднее арифметическое трех чисел с помощью функции writeln().
Выводится произведение трех чисел с помощью функции writeln().
После этого происходит освобождение памяти, выделенной под переменные a, b и c с помощью функций dispose().
И, наконец, функция readkey() используется для ожидания ввода пользователя перед завершением программы.