помогите написать программу на языке Паскаль)В прямоугольник со гранями a и

Если ты имел ввиду описанную около пр-ка окружность то вот

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.