Помогите с паскалем.

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

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

var

a, b:real;

begin

Write ('Задайте через пробел стороны прямоугольника: ') ;

Readln (a, b) ;

Writeln ('Периметр ромба равен ',4*sqrt (sqr (a/2) + sqr (b/2)))

end.