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

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