/* Wa becomes violent, and gets () cannot be used ()!!! Change to CIN. Getline. Read all the data to be used and bring it into a formula.
Set two points on the Ball (x1, Y1), (X2, Y2 );
Sum = r * ACOs (sin (X1) * sin (X2) + cos (X1) * Cos (X2) * Cos (y1-y2 ));*/
// My code:
# Include <iostream>
# Include <cstdio>
# Include <cstring>
# Include <cmath>
# Define e 1e-5
Using namespace STD;
Const int n= 100;
Const double Pi = ACOs (-1.0 );
Const double r = 3437.5;
Char s [N];
Char dslat [5], delat [5];
Char dslon [5], Delon [5];
Int main (){
// Freopen ("data. In", "r", stdin );
Int slat, slat1, slat2, Elat, elat1, elat2;
Int Slon, slon1, slon2, Elon, elon1, elon2;
Double lat_s, lat_e, lon_s, lon_e, sum;
Char C;
Cin. Getline (S, N );
Cin. Getline (S, N );
Cin. Getline (S, N );
Scanf ("% d % C % s", & slat, & C, & slat1, & C, & slat2, & C, & C, dslat );
Scanf ("% s", S );
Scanf ("% d % C % s", & Slon, & C, & slon1, & C, & slon2, & C, & C, dslon );
Getchar (); cin. Getline (S, N );
Scanf ("% d % C % s", & Elat, & C, & elat1, & C, & elat2, & C, & C, delat );
Scanf ("% s", S );
Scanf ("% d % C % s", & Elon, & C, & elon1, & C, & elon2, & C, & C, Delon );
Getchar (); cin. Getline (S, N );
Lat_s = (dslat [0] = 'n '? 1:-1) * (slat + (slat1 + slat2/60.0)/60.0) * PI/180.0;
Lon_s = (dslon [0] = 'W '? -) * (Slon + (slon1 + slon2/60.0)/60.0) * PI/180.0;
Lat_e = (delat [0] = 'n '? 1:-1) * (Elat + (elat1 + elat2/60.0)/60.0) * PI/180.0;
Lon_e = (Delon [0] = 'W '? -) * (Elon + (elon1 + elon2/60.0)/60.0) * PI/180.0;
Sum = r * ACOs (sin (lat_s) * sin (lat_e) + cos (lat_s) * Cos (lat_e) * Cos (lon_s-lon_e ));
Printf ("the distance to the iceberg: %. 2lf miles. \ n", sum );
If (100-sum> 0.005) printf ("Danger! \ N ");
Return 0;
}