Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям (программа Паскаль)

Question

Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника

Answer 1

var
x1, y1, x2, y2, a, b: real;

begin
writeln('Введите координаты x1 и y1: ');
readln(x1, y1);
writeln('Введите координаты x2 и y2: ');
readln(x2, y2);
writeln;
{ Вычисляем стороны прямоугольников: }
a := abs(x2 - x1);
b := abs(y2 - y1);
{ Выводим результат: }
writeln('Периметр: ', 2 * (a + b):0:2);
writeln('Площадь: ', a * b:0:2);
readln
end.