Перевод градусов в радианы - Pascal

Формулировка задачи:

Напишите программу «справочник», которая бы запрашивала значение угла в градусах, переводила его в радианы и выдавала значение синуса этого угла, чтобы запросы повторялись до тех пор, пока пользователь не введет «0». В начале программы распечатайте условия выхода, чтобы пользователь мог закончить работу.

Решение задачи: «Перевод градусов в радианы»

Листинг программы

program pr;
 
var
  m, a, b: real;
 
procedure ang(var x: real; var ag: real; var av: real);
begin
  ag := (x * pi) / 180;
  av := sin(x);
end;
 
begin
  m := 1;
  while m <> 0 do 
  begin
    writeln('Введите градусную меру угла; для завершения программы введите 0');
    readln(m);
    ang(m, a, b);
    writeln(m, ' градусов = ', a, ' радиан');
    writeln('sin(', m, ')= ', b);
    writeln;
  end;
end.

Объяснение кода листинга программы

Создается программа pr на языке Pascal.
В переменной m хранится значение, которое будет использоваться в цикле.
В переменной a хранится результат перевода градусов в радианы.
В переменной b хранится результат вычисления синуса угла.
Создается процедура ang, которая принимает три параметра: x - угол в градусах, ag - угол в радианах, av - синус угла x.
Внутри процедуры ang выполняются следующие действия: ag присваивается значение (x * pi) / 180, av присваивается значение sin(x).
Программа продолжается до тех пор, пока значение переменной m не станет равным нулю.
В каждой итерации цикла программа запрашивает у пользователя значение угла в градусах и вызывает процедуру ang с этим значением, а также сохраняет результат перевода градусов в радианы и синус угла в переменные a и b соответственно.
После каждой итерации выводится сообщение, содержащее значение угла в градусах и радианах, а также значение синуса угла.