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

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