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.