program T18; var LatA,LonA: real; LatB,LonB: real; LatC,LonC: real; LatD,LonD: real; Lat,Lon: real; begin UTMtoWGS84(32, "U", 432716, 5458969, LatA, LonA); UTMtoWGS84(32, "U", 435091, 5462589, LatB, LonB); UTMtoWGS84(32, "U", 432792, 5461840, LatC, LonC); UTMtoWGS84(32, "U", 435963, 5459241, LatD, LonD); if KreuzStrecken( LatA,LonA,LatB,LonB,LatC,LonC,LatD,LonD, Lat,Lon) then begin Writeln(WGS84(Lat,Lon)) end else begin Writeln('Kein Schnittpunkt') end; WptsClear; WptsAdd(LatA,LonA); WptsAdd(LatB,LonB); WptsAdd(LatC,LonC); WptsAdd(LatD,LonD); WptsAdd(Lat,Lon); WptsTransfereOzi; end.