program T6; var Lat, Lon: real; utmxZone: integer; utmYZone: char; easting, northing: real; sy: integer; xGK, yGK: real; xRD, yRD: real; begin Writeln(' -- Delft --'); lat := 'N 51° 59.1700'; lon := 'E 4° 23.2546'; Writeln('WGS: ',WGS84(Lat,Lon)); WGS84ToUTM(lat, lon, utmxZone, utmYZone, easting, northing); writeln('UTM: ', easting:11:2, northing:11:2,' ',utmxZone, utmYZone); sy:=MKZ(lon); WGS84toGK(lat, lon, sy, xGK, yGK); writeln('GK : ', xGK:11:2, yGK:11:2); WGS84toRD(lat, lon, xRD, yRD); writeln('RD : ',xRD:11:2, yRD:11:2); RDtoWGS84(xRD, yRD, lat, lon); Writeln('WGS: ',WGS84(Lat,Lon)); end.