{* Площадь прямоугольника из диагонали *}

Unit BEGIN_16;
Interface
Implementation
Begin
 writeln('Даны координаты диагонали прямоугольника. Найти его площадь. ');
End.

Program begin_16;

Uses begin_16.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  x1 : real;
  x2 : real;
  y1 : real;
  y2 : real;
  s  : real;
  a  : real;
  b  : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('x1=');
  readln(x1);
  write('y1=');
  readln(y1);
  write('x2=');
  readln(x2);
  write('y2=');
  readln(y2);
  a := abs(x2 - x1);
  b := abs(y2 - y1);
  s := a * b;
  write('s=', s : 4 : 2);
  readln; {* Приостановка программы. Ожидание Enter *}
End.