program Opuklist;
var f:text;i,n,k:integer;a,b,x,y:array [1..100] of integer;
begin
assign(f,'Input.dat');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;assign(f,'output.sol');rewrite(f);
for i:=1 to n do
if a[i]*b[i+1]-a[i+1]*b[i]>0 then
k:=k+1;
if (k=n) or (k=0) then writeln(f,'Yes') else writeln(f,'No');close(f);
end.