Напишите решение задачи в паскале: Прямоугольник задан координатами левого верхнего и правого нижнего углов.Найти площадь и периметр.(С помощью вспомогательного алгоритма)

Предыдущий
вопрос Следующий
вопрос

program rectangle_area_perimeter;

var
x1, y1, x2, y2: integer;
area, perimeter: integer;

function CalculateArea(x1, y1, x2, y2: integer): integer;
begin
CalculateArea := abs(x2 - x1) * abs(y2 - y1);
end;

function CalculatePerimeter(x1, y1, x2, y2: integer): integer;
begin
CalculatePerimeter := 2 * (abs(x2 - x1) + abs(y2 - y1));
end;

begin
write('Enter the coordinates of the left upper corner (x1 y1): ');
readln(x1, y1);
write('Enter the coordinates of the right bottom corner (x2 y2): ');
readln(x2, y2);

area := CalculateArea(x1, y1, x2, y2);
perimeter := CalculatePerimeter(x1, y1, x2, y2);

writeln('The area of the rectangle is: ', area);
writeln('The perimeter of the rectangle is: ', perimeter);
end.