Там получится ромб с длиной стороны, равной гипотенузе треугольника с катетами равными половинам введенных длин сторон.
var
a,b:real;
begin
Write('Задайте через пробел стороны прямоугольника: ');
Readln(a,b);
Writeln('Периметр ромба равен ',4*sqrt(sqr(a/2)+sqr(b/2)))
end.