Begin19. Даны координаты двух противоположных вершин прямоугольника: (x₁, y₁), (x₂, y₂). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.
var x1, y1, x2, y2, a, b, p, s: real;
begin
  write('Введите координаты противоположных вершин прямоугольника: (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:6:2);
  writeln('Площадь прямоугольника = ', s:6:2);
end.