program T1; var Lat, Lon: real; begin writeln; lat := 'N 49° 20.500'; lon := 'E 8° 8.756'; writeln(Lat,' ',Lon); writeln(WGS84(Lat,Lon)); writeln; lat := '49 20 30'; lon := '-8 8.756'; writeln(Lat,' ',Lon); writeln(WGS84(Lat,Lon)); end.