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.