Помогите!!!!!прошууу!!!!очень срочно!!!

Question

Помогите!!!!!прошууу!!!!очень срочно!!!

---

Answer 1

Var x1,y1,x2,y2,a,b,p,s:real;
begin
writeln('x1, y1, x2, y2');
readln(x1,y1,x2,y2);
a:=abs(x1-x2);
b:=abs(y1-y2);
p:=2*(a+b);
s:=a*b;
writeln('p = ',p);
writeln('s = ',s);
end.

Пример:
x1, y1, x2, y2
1 2 7 6
p = 20
s = 24