Вычислить длину окружности и площадь круга одного и того же заданного радиуса R - Pascal

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

Брату в универе нужно написать задачки по программированию (лабы) на паскале. Помогите кто знает, спасибо. 1. Вычислить длину окружности и площадь круга одного и того же заданного радиуса R.

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

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

program krug;
var
l,s,r:real;
const
p=3.14;
begin
writeln('введите радиус');
readln(r);
s:=p*r*r;
l:=2*p*r;
writeln('площадь равна = ',s,' длина равна = ',l);
readln;
end.

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

В программе объявлены три переменные: l, s, r, которые имеют тип real (число с плавающей точкой).
Константа p имеет значение 3.14 и используется для вычисления площади круга и длины окружности.
С помощью функции readln() пользователю предлагается ввести значение радиуса.
Значение радиуса сохраняется в переменной r.
Для вычисления площади круга используется формула s := p r r. Здесь p умножается на радиус r, возведенный в квадрат.
Для вычисления длины окружности используется формула l := 2 p r. Здесь p умножается на радиус r, умноженный на 2.
С помощью функции writeln() выводятся результаты вычислений: площадь равна s, длина равна l.
С помощью функции readln() ожидается ввод пользователя для завершения программы.