Поммогите пожалуйста задание 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.