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