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

var a,c,d,b,s:real;beginreadln(a,c);d:=c/pi;b:=sqrt(d*d-a*a);s:=a*b;writeln('s = ',s:5:1);end.Пример:3.0 15.7s = 12.0