Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника — Pascal(Паскаль)

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.