{* Перевод угла из радиан в градусы, минуты и секунды *}

Unit Z_RADIANS2;
Interface
Implementation
Begin
 writeln('Перевод угла из радиан в градусы, минуты и секунды');
End.

Program z_radians;

Uses z_radians2.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  Grade   : integer;
  Minutes : integer;
  Seconds : integer;
  Radians : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите значение угла в радианах');
  readln(Radians);
  Grade := trunc(Radians * 180 / Pi);
  Minutes := trunc(frac(Radians * 180 / Pi) * 60);
  Seconds := trunc(frac(frac(Radians * 180 / Pi) * 60) * 60);
  writeln('Величина угла в градусах, минутах и секундах');
  writeln(Grade, ' градусов ', Minutes, ' минут ', Seconds, ' секунд');
  readln; {* Ждем подтверждения пользователя *}
End.