сделать задачу в паскале.
Длина окружности - С . Определить радиус окружности и 1/4 части площади круга ,ограниченного этой окружности.
Помогите пожалуйста.

var c:real;

begin

write ('Введите длину окружности: ');

read(c);

writeln ('Радиус равен: ', c/(2*pi):0:3);

writeln ('1/4 площади круга равна: ', pi*sqr(c/(2*pi))/4:0:3);

end.