Напишите программу для нахождения периметра(p) и площади(s) четырехугольника,если известны координаты его вершин

//PascalABC.Net 3.2
begin
var x1:=readreal ('Введите x левого нижнего угла: ');
var y1:=readreal ('Введите y левого нижнего угла: ');
var x2:=readreal ('Введите x правого верхнего угла: ');
var y2:=readreal ('Введите y правого верхнего угла: ');
writeln ('P=', 2*(abs(x1-x2)+abs(x1-x2)),  '; S=', abs(x1-x2)*abs(x1-x2));
end.