Написать программу на языке паскаль) в прямоугольник со сторонами 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.