{* Трапеция *}

Unit TRAPEC1;
Interface
Implementation
Begin
 writeln('Определение, является ли данный четырехугольник трапецией');
End.

Program z1;

Uses trapec1.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  x1 : real;
  x2 : real;
  x3 : real;
  x4 : real;
  y1 : real;
  y2 : real;
  y3 : real;
  y4 : real;
  cs : real;
  x  : real;
  y  : real;
Begin
  clrscr; {* Очищаем экран *}
  readln(x1);
  readln(y1);
  readln(x2);
  readln(y2);
  readln(x3);
  readln(y3);
  readln(x4);
  readln(y4);
  x := (x3 - x2) * (x4 - x1) + (y3 - y2) * (y4 - y1);
  y := sqrt(sqr(x3 - x2) + sqr(y3 - y2)) * sqrt(sqr(x4 - x1) + sqr(y4 - y1));
  If x / y = 1 Then
    writeln('трапеция')
  Else Begin
    x := (x1 - x2) * (x4 - x3) + (y1 - y2) * (y4 - y3);
  y := sqrt(sqr(x1 - x2) + sqr(y1 - y2)) * sqrt(sqr(x3 - x4) + sqr(y3 - y4));
  If x / y = 1 Then
    writeln('трапеция')
  Else writeln('не трапеция');
End;
  readkey; {* Ждем нажатия любой клавиши *}
  End....