вводится стороны прямоугольника. найти периметр фигуры, образованной последовательным соединением середин сторон прямоугольника.

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