Динамические переменные

[ksesh]

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

Код такой:

program din;
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('Summa: ',a^:0:2,' + ',b^:0:2,' + ',c^:0:2,' = ',a^+b^+c^:0:2);
 writeln('Sred. arifmet.: ',a^:0:2,' , ',b^:0:2,' , ',c^:0:2,' = ',(a^+b^+c^)/3:0:2);
 writeln('Proizvedenie: ',a^:0:2,' * ',b^:0:2,' * ',c^:0:2,' = ',(a^*b^*c^):0:2);
 dispose(a);
 dispose(b);
 dispose(c);
 readkey;
end.

Объясните, пожалуйста, построчно прям как работает программа. Нихрена не понимаю.