Поммогите пожалуйста задание 4* нужно использовать формулу которая записана справа под...

Var x1,x2,y1,y2,a,b,s,p: real;
begin
write('Введите x1: ');
readln(x1);
write('Введите y1: ');
readln(y1);
write('Введите x2: ');
readln(x2);
write('Введите y2: ');
readln(y2);
a:= abs(x2-x1);
b:= abs(y2-y1);
p:=2*(a+b);
s:=a*b;
writeln('Периметр прямоугольника: ', P);
writeln('Площадь прямоугольника: ', S);
end.