Вычисление площади круга и длинны окружности по заданному радиусу в Паскаль с применением константы

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