Описать процедуру RectPS(x1,y1,x2,y2,P, S) - Pascal ABC

Формулировка задачи:

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

Решение задачи: «Описать процедуру RectPS(x1,y1,x2,y2,P, S)»

Листинг программы

procedure Rect(x1,y1,x2,y2:real;var p,s:real);
var a,b:real;
begin
a:=x2-x1;
b:=y1-y2;
p:=2*(a+b);
s:=a*b;
writeln('Периметр=',p:0:2);
writeln('Площадь=',s:0:2);
end;
var i:byte;
    x1,y1,x2,y2,p,s:real;
begin
for i:=1 to 3  do
 begin
  writeln('Введите координаты левой верхней вершины прямоугольника');
  readln(x1,y1);
  repeat
  writeln('Введите координаты правой нижней вершины прямоугольника');
  readln(x2,y2);
  until(x2>x1)and(y2<y1);
  Rect(x1,y1,x2,y2,p,s);
 end;
end.

Объяснение кода листинга программы

Введен код на языке Pascal ABC.
В коде определена процедура Rect с шестью параметрами и двумя локальными переменными.
В начале процедуры вычисляются два расстояния: a и b.
Затем вычисляются периметр и площадь прямоугольника по формулам P = 2(a+b) и S = ab соответственно.
Значения периметра и площади выводятся на экран с помощью функции writeln.
В основной части программы определен цикл for, который выполняется три раза.
При каждом выполнении цикла пользователю предлагается ввести координаты левой верхней вершины прямоугольника.
Если введенные координаты удовлетворяют условию (x2>x1)and(y2<y1), то вызывается процедура Rect с соответствующими аргументами.
Цикл завершается после третьего выполнения всех операций.
Код завершается фигурными скобками end.