program T16;
var
  r: real;

  LatA,LonA: real;
  LatB,LonB: real;
  LatC,LonC: real;
  LatD,LonD: real;

  LatP,LonP,HP: real;
  LatQ,LonQ,HQ: real;

  Inside: integer;

begin
   r := 6371000.8;

   LatA:=49;
   LonA:=8;
   LatB:=49;
   LonB:=10;
   LatC:=50;
   LonC:=9;
   LatD:=48;
   LonD:=9;

   Orthodrome(LatA,LonA,LatB,LonB,LatC,LonC,LatD,LonD,
     LatP,LonP,LatQ,LonQ, Inside);

   Writeln('P: ',WGS84(LatP,LonP));
   Writeln('Q: ',WGS84(LatQ,LonQ));

   if (Inside = 1) then begin
      writeln('P liegt zwischen A und B')
   end;
   if (Inside = 2) then begin
      writeln('Q liegt zwischen A und B')
   end;

end.