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

Если ты имел ввиду описанную около пр-ка окружность то вот program dlinap; uses crt; var a,b,diam,dlina : real; const pi=3.14; begin write('Чему равна длина и ширина пр-ка?'); Readln(a,b); diam:=sqrt(sqr(a)+sqr(b)); dlina:=pi*diam; Writeln('Длина окружности равна ',dlina); end.