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

program prym;
var X1, X2, Y1, Y2, P, S, a, b: real;
begin
    write('Введите координаты двух точек х1 у1 х2 у2 : ');
    read(X1, Y1, X2, Y2);
    a := abs(X2 - X1);
    b := abs(Y2 - Y1);
    P := 2 * (a + b);
    S := a * b;
    writeln('Периметр прямоугольника -- ', P:5:2);
    writeln('Площадь прямоугольника -- ', S:5:2);
end.