program mnogoketnuk2; {$APPTYPE CONSOLE} var x,y,a,b:array[1..100] of real; vd:real; n,i,j,k:integer; f:text; begin {Задання координат вершин многокутника} assign(f,'input1.txt'); reset(f); readln(f,n); for i:=1 to n do readln(f,x[i],y[i]); close(f); {Визначення координат векторів} x[n+1]:=x[1]; y[n+1]:=y[1]; for i:=1 to n do begin a[i]:=x[i+1]-x[i]; b[i]:=y[i+1]-y[i]; end; {Підрахунок кількості від'ємних добутків} a[n+1]:=a[1]; b[n+1]:=b[1]; k:=0; for i:=1 to n do begin vd:=a[i]*b[i+1]-a[i+1]*b[i]; if vd>=0 then k:=k+1; end; {Виведення результату} assign(f,'output1.txt'); rewrite(f); if (k=n)or(k=0) then writeln(f,'yes') else writeln(f,'no'); close(f); end.