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