program Project2; {$APPTYPE CONSOLE} const n=10; var b,c,x,y:array [1..n] of integer; i,d:integer; begin for i:=1 to n do readln(x[i],y[i]); for i:=1 to n-1 do begin b[i]:=x[i]-x[i+1]; c[i]:=y[i]-y[i+1]; end; for i:=1 to n-1 do begin d:=b[i]*c[i+1]-b[i+1]*c[i]; if d>0 then writeln('vlivo'); if d<0 then writeln('vpravo'); if d=0 then writeln ('prymo'); end; x[i]:=x[i+1]; y[i]:=y[i+1]; x[i+1]:=x[i+2]; y[i+1]:=y[i+2]; readln; end.