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

program Begin19;var X1, X2, Y1, Y2, P, S, a, b: real;begin write('Введите координаты двух точек х1 у1 х2 у2 : '); read(X1, Y1, X2, Y2); a := abs(X2 - X1); b := abs(Y2 - Y1); P := 2 * (a + b); S := a * b; writeln('Периметр прямоугольника -- ', P:5:2); writeln('Площадь прямоугольника -- ', S:5:2);end.

program pryamougolnik;var x1, x2, y1, y2, a, b, s, p:real;beginwrite ('Введите координату х1 = ');readln (x1);write ('Введите координату y1 = ');readln (y1);write ('Введите координату х2 = ');readln (x2);write ('Введите координату y2 = ');readln (y2);a:=abs(x2-x1);b:=abs(y2-y1);p:=(a+b)*2;s:=a*b;writeln ('Периметр прямоугольника P = ', p);writeln ('Площадь прямоугольника S = ', s);end.