Даны координаты противопложных вершин прямоугольника х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.