Program Begin19;
Var
x1,y1,x2,y2,P,S,a,b:Real;{a и b это ширина и высота прямоугольника}
Begin
WriteLn('Введите координаты первой вершины');
RealLn(x1,y1);
WriteLn('Введите координаты второй вершины');
RealLn(x2,y2);
a:=y2-y1;
b:=x2-x1;
WriteLn('P = ',2*(a+b));
WriteLn('S = ',a*b);
ReadLn;
End.