{* Перевод градусы в радианы *}

Unit Z_GRADS;
Interface
Implementation
Begin
 writeln('Перевод градусы в радианы');
End.

Program z_grad;

Uses z_grads.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  Grade   : integer;
  Minutes : integer;
  Seconds : integer;
  Radians : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите количество градусов угла');
  readln(Grade);
  writeln('Введите количество минут угла');
  readln(Minutes);
  writeln('Введите количество секунд угла');
  readln(Seconds);
  Radians := (Grade + Minutes / 60 + Seconds / 360) * pi / 180;
  If Grade < 0 Then
    Radians := - Radians;
  writeln('Значение данного угла в радианах ', Radians : 8 : 5);
  readln; {* Приостановка программы. Ожидание Enter *}
End.