В прямоугольник со сторонами a и b вписан круг. Найти длину

Function CircleLenght(x:real):real;
begin
CircleLenght:=3.141593 * x
end;

var
a,b,d,c:real;
begin
Write(Введите стороны прямоугольника: ); Readln(a,b);
if a gt; b
then
d := b
else
d := a;
Writeln(Длина вписанной окружности равна ,CircleLenght(d))
end.