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

Var x1,x2,y1,y2,p,s:integer;
beginwrite(Введите x1 и y1);Readln(x1 , y1);write(Введите x2 и y2);Readln(x2 , y2);p:= abs((x2 - x1))*2 + abs((y1 -y2))*2;s:= abs((x2 - x1))* abs((y1 -y2));write(Введите x1 и y1,x1:4 , y1:4);write(  );writeln(Введите x2 и y2,x2:4 , y2:4);writeln(Периметр = ,p);writeln(Площадь = ,s);end.