{* Задача 471 *}

Unit ZADACH471;
Interface
Implementation
Begin
 writeln('

Описать функцию DegToRad(D) вещественного типа, находящую величину угла в радианах, если дана его величина D в градусах (D – вещественное число, 0<D<360). Воспользоваться следующим соотношением: 180⁰ = p радианов. В качестве р использовать 3.14. С помощью функции DegToRad перевести в радианы пять данных углов.

');
End.

Program zadach471;

Uses zadach471.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  i                    : integer;
  r                    : real;
  d                    : real;
Function DegToRad (d : real);
Var {* Объявление переменных *}
  p : real;
Begin
  p := 3.14;
  DegToRad := (d * p) / 180;
End;
Begin
  writeln ('Введите углы в радианах');
  For i := 1 To 5 Do {* Увеличиваем i от 1 до 5 с шагом 1 *}
  Begin
    readln (r);
    d := DegToRad(r);
    writeln ('d=', d);
  End;
  
End.