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.