Создать динамические переменные для вычисления длины окружности и площади круга - Turbo Pascal

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

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

Решение задачи: «Создать динамические переменные для вычисления длины окружности и площади круга»

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

Var l,s:^real;
    r:real;
Begin
    write('Radius: ');readln(r);
    New(l);
    l^:=2*pi*r;
    New(s);
    s^:=pi*r*r;
    writeln('Длина окружности = ',l^:0:4);
    writeln('Площадь окружности = ',s^:0:4);
    Dispose(l);Dispose(s);
    readln;
End.

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

Объявляются переменные l, s и r типа ^real.
Выводится сообщение «Радиус: », после чего считывается значение радиуса.
Создается новый объект переменной l с помощью оператора New.
Значение переменной l присваивается выражению 2pir.
Создается новый объект переменной s с помощью оператора New.
Значение переменной s присваивается выражению pirr.
Выводится сообщение «Длина окружности = », после чего выводится значение переменной l.
Выводится сообщение «Площадь окружности = », после чего выводится значение переменной s.
Вызываются функции Dispose для освобождения памяти, выделенной под объекты переменных l и s.
Считывается символ новой строки с помощью функции readln.