Proc5. Описать процедуру RectPS($$x_1$$, $$y_1$$, $$x_2$$, $$y_2$$, $$P$$, $$S$$), вычисляющую периметр $$P$$ и площадь $$S$$ прямоугольника со сторонами, параллельными осям координат, по координатам $$(x1, y1), (x2, y2)$$ его противоположных вершин ($$x1$$, $$y1$$, $$x2$$, $$y2$$ — входные, $$P$$ и $$S$$ — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами.

Формулы:
$$P=2*(a+b)$$

$$S=a*b $$

$$ a=|x_1-x_2| $$

$$ b=|y_1-y_2| $$

$$ P=2*(|x_1-x_2|+|y_1-y_2|) $$

$$ S=|x_1-x_2|*|y_1-y_2| $$

Решение:

Другие задачи из раздела Proc можно посмотреть здесь.