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

Var a,c,d,b,s:real;
begin
readln(a,c);
d:=c/pi;
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('s = ',s:5:1);
end.

Пример:
3.0 15.7
s = 12.0