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

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