program test_orez;
uses crt;



type TBod = record
     x, y: integer;
end;

var
   soucin: integer;
   MujBod: TBod;


function vektorovy_soucin(ax,bx,px,ay,by,py:integer):integer;
begin
     vektorovy_soucin:=((bx-ax)*(py-ay))-((by-ay)*(px-ax));
end;

begin
  {   MujBod: TBod (x:1;y:5;);
   }  MujBod.x:=2; MujBod.y:=3;
     clrscr;
     soucin:=vektorovy_soucin(1,3,MujBod.x,2,4,MujBod.y);
     if (soucin>0) then begin
        writeln ('bod lezi vlevo');
     end
    else if (soucin<0) then begin
          writeln('bod lezi vpravo');
     end
     else writeln ('bod lezi na usecce');
     readln;
end.