В паскале (ABC) с помощью процедуры (любым способом) написать задачу : Прямоугольник задан своими координатами,вычислить периметр.

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

Пример решения:

program PerimeterOfRectangle;
var
x1, y1, x2, y2: Integer;
Perimeter: Integer;
procedure CalculatePerimeter(x1, y1, x2, y2: Integer);
begin
Perimeter := 2 * (abs(x2 - x1) + abs(y2 - y1));
end;
begin
writeln('Enter the coordinates of the rectangle:');
write('x1 = ');
readln(x1);
write('y1 = ');
readln(y1);
write('x2 = ');
readln(x2);
write('y2 = ');
readln(y2);
CalculatePerimeter(x1, y1, x2, y2);
writeln('Perimeter of the rectangle is: ', Perimeter);
end.

Пользователю предлагается ввести координаты вершин прямоугольника, после чего программа с помощью процедуры CalculatePerimeter вычисляет периметр и выводит его на экран.