program T14;
var
  Lat1, Lon1: real;
  Lat2, Lon2: real;
  d,a : real;
begin
   Lat1:='49 20.800';
   Lon1:='8 8.756';

   Lat2:='49 20.801';
   Lon2:='8 8.756';

   d:=Distance(Lat1,Lon1,Lat2,Lon2);

   writeln(d:10:2,'m ');

   if CalcProjection(Lat1, Lon1, Lat2, Lon2, D, A) then begin
      writeln(d:10:2,'m ', a:7:2,'°')
   end;
end.