Листинг программы

program z54;

{Даны 4 точки заданные координатами .Является

 ли данная фигура трапецией.}

 uses crt;

 var x1,x2,x3,x4,y1,y2,y3,y4:real;

 a,b,c,d,a1,b1,c1,d1,m,n,k,f:real;

    begin

    clrscr;

    write('x1=');readln(x1);

    write('y1=');readln(y1);

    write('x2=');readln(x2);

    write('y2=');readln(y2);

    write('x3=');readln(x3);

    write('y3=');readln(y3);

    write('x4=');readln(x4);

    write('y4=');readln(y4);

    a:=x2-x1;b:=y2-y1;a1:=x4-x3;b1:=y4-y3;

    c:=x4-x1;d:=y4-y1;c1:=x3-x2;d1:=y3-y2;

    m:=abs(a)/abs(a1);n:=abs(b)/abs(b1);k:=abs(c)/abs(c1);

    f:=abs(d)/abs(d1);

    if (m=n) or (k=f)

          then write('трапеция')

          else write('Hе трапеция');

    readln;

    end.