1.6 Radians to degrees, minutes and seconds.

program RadiansToDegrees; // for fixing, can't compile
var
radians : Int64;
totalSeconds : Int64;
seconds : Int64;
minutes : Int64;
degrees : Int64;

begin
    writeln('Enter radians: ');
    readln(radians);

   totalSeconds:= (360*60*60*radians)/(2*3.14159);
   seconds:=totalSeconds mod 60;
   minutes:=(totalSeconds div 60) mod 60;
   degrees:=(totalSeconds div 3600) mod 60;

   writeln('The converted degrees are: ');
   writeln(degrees);
   writeln('The converted minutes are: ');
   writeln(minutes);
   writeln('The converted seconds are: ');
   writeln(seconds);
end.