Составьте программу решающую следующую задачу. Известна длина окружности L. Найдите площадь круга S ограниченного этой окружностью. Формулы для вычисления длины окружности и площади круга I=2 пR? S = пR^2 (где п = 3,14)

const / /подключаем константу;

p = 3.14; / /присваиваем значение;

var / /программа;

L, S:real; / /переменные вещественного типа;

begin

write ('L = '); readln (L); / /вводим переменную и присваиваем значение;

writeln ('S = ', sqr (L / (2 * p)) * pi); / /выводим ответ;

end.