Если по картинке первая точка находится сверху левого угла, а правая противоположна, то можно такprogram znanijatop;var x1,y1,x2,y2,a,b:byte;begin
writeln('введите координату по Х1,Y1,X2,Y2');readln(x1);readln(y1);readln(x2);readln(y2);a:=x2-x1;b:=y1-y2;writeln('P = ',a+a+b+b,' S = ',a*b);end.