Даны координаты противопложных вершин прямоугольника х1 у1 х2 у2 стороны прямоугольника парралельны осям координата координат * составьте программу вычесления периметра и площади прямоугольника

На паскале:

var x1, x2, x3, y1, y2, y3, ax, bx, ay, by, a, b, p, s:integer;

begin

readln (x1) ; readln (y1) ; readln (x2) ; readln (y2) ;

x3:=x1; y3:=y2; / / координаты 3 точки

ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; / / координаты направляющих векторов

a:=sqrt (sqr (ax) + sqr (ay)) ; / / длинна вектора

b:=sqrt (sqr (bx) + sqr (by)) ; / / длинна вектора

p:=2 * (a+b) ; / / периметр

s:=a*b; / / площадь

writeln (p) ;

writeln (s) ;

end.