{No.1030 Titanic.}
{$N+}
Const
     pi=3.1415926535897932384626433832795;
Var
     Char1,NS1,EW1,NS2,EW2:Char;
     A1,B1,C1,D1,E1,F1,A2,B2,C2,D2,E2,F2:Integer;
     SqrD,Alpha,L,X1,Y1,Z1,X2,Y2,Z2:Double;
Function ReadNum:Integer;
Var
     Str1:String;
     Code,Num:Integer;
     Char1:Char;
Begin
     Str1:='';
     Read(Char1); Str1:=Str1+Char1;
     Read(Char1);
     If Char1 In ['0'..'9'] Then
     Begin
          Str1:=Str1+Char1;
          Read(Char1);
          If Char1 In ['0'..'9'] Then
               Str1:=Str1+Char1;
     End;
     Val(Str1,Num,Code);
     ReadNum:=Num;
End;
Procedure Cal(Theta1,Theta2:Double;NS,EW:Char;Var X,Y,Z:Double);
Begin
     If NS='N' Then
          Z:=Sin(Theta1)
     Else Z:=-Sin(Theta1);
     X:=Cos(Theta2)*Cos(Theta1);
     If EW='E' Then
          Y:=Sin(Theta2)*Cos(Theta1)
     Else Y:=-Sin(Theta2)*Cos(Theta1);
End;
Begin
     ReadLn;
     ReadLn;
     ReadLn;

     A1:=ReadNum;
     B1:=ReadNum;
     C1:=ReadNum;
     Read(Char1);
     Read(NS1);
     ReadLn;

     Read(Char1); Read(Char1); Read(Char1); Read(Char1);
     D1:=ReadNum;
     E1:=ReadNum;
     F1:=ReadNum;
     Read(Char1);
     Read(EW1);
     ReadLn;

     ReadLn;

     A2:=ReadNum;
     B2:=ReadNum;
     C2:=ReadNum;
     Read(Char1);
     Read(NS2);
     ReadLn;

     Read(Char1); Read(Char1); Read(Char1); Read(Char1);
     D2:=ReadNum;
     E2:=ReadNum;
     F2:=ReadNum;
     Read(Char1);
     Read(EW2);
     ReadLn;
     ReadLn;

     Cal((((C1/60)+B1)/60+A1)/180*pi,(((F1/60)
+E1)/60+D1)/180*pi,NS1,EW1,X1,Y1,Z1);
     Cal((((C2/60)+B2)/60+A2)/180*pi,(((F2/60)
+E2)/60+D2)/180*pi,NS2,EW2,X2,Y2,Z2);

     If (Abs(X1+X2)<1E-10) And (Abs(Y1+Y2)<1E-10) And (Abs(Z1+Z2)<1E-
10) Then
          Alpha:=pi
     Else Begin
          SqrD:=Sqr(X1-X2)+Sqr(Y1-Y2)+Sqr(Z1-Z2);
          Alpha:=Arctan(Sqrt(SqrD)/2/Sqrt(1-SqrD/4))*2;
     End;
     L:=Alpha*6875/2;
     Write('The distance to the iceberg: ');
     Write(L:0:2);
     WriteLn(' miles.');
     If Round(L*100)<10000 Then
          WriteLn('DANGER!');
End.

AC program gives answers
The distance to the iceberg: 5399.61 miles.
The distance to the iceberg: 52.04 miles.
DANGER!
The distance to the iceberg: 10799.22 miles.
The distance to the iceberg: 10799.22 miles.
The distance to the iceberg: 10799.22 miles.
The distance to the iceberg: 91.92 miles.
DANGER!
The distance to the iceberg: 100.00 miles.
The distance to the iceberg: 99.99 miles.
DANGER!

I used python 2.7.5 this time.
My code was unchanged
AC in .468
Thanks for all the advise

Edited by author 21.09.2013 03:57