Курсовая работа: Программы в среде Turbo Pascal

L[4]:=y1-y4;

Z:=0;

A:=0;

For i:=1 to 4 do

Begin

If k[i]=0 then

Z:=z+1;

End;

If z>2 then

Begin

Writeln(‘неправильно заданы координаты’);

Goto 1;

End;

For i:=1 to 4 do

Begin

If l[i]=0 then

a:=a+1;

end;

if a>2 then

begin

writeln(‘неправильно заданы координаты’);

Goto 1;

End;

q[1]:=k[1]*l[3];

q[2]:=k3*l[1];

q[3]:=k[2]*l[4];

q[4]:=k[4]*l[2];

if q[1]=q[2] then

begin