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

Спасибо, чел, очень помог :3

Нез

Var  x1,x2,y1,y2,P,S,a,b:integer;Begin  Write('Введите X1,Y1,X2,Y2 ');  Readln(x1,y1,x2,y2);  a:=x1-x2;  b:=y1-y2;  if a<0 then a:=-a;  if b<0 then b:=-b;  p:=(a+b)*2;  s:=(x1-x2)*(y1-y2);  if s<0 then s:=-s;  Write('S = ',s,' | P = ',p);End.