Sin(alfa)=a*sin(gamma)/c - Turbo Pascal

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

Sin(alfa)=a*sin(gamma)/c мне нужна формула для нахождения альфа для паскаля помогите пожалуйста

Решение задачи: «Sin(alfa)=a*sin(gamma)/c»

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

var a,alfa,gamma,c,sn:real;
begin
writeln('Введите значения a,gamma,c');
readln(a,gamma,c);
if (c=0)or(abs(a*sin(gamma)/c)>1)then write('Значение не определено')
else
 begin
  sn:=a*sin(gamma)/c;
  if sn=-1 then alfa:=-pi/2
  else if sn=1 then alfa:=pi/2
  else alfa:=arctan(sn/sqrt(1-sn*sn));
 end;
writeln('alfa=',alfa:0:2);
end.

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

Ввод значений переменных a, gamma, c с помощью функции readln().
Проверка условия (c=0)or(abs(a*sin(gamma)/c)>1) с помощью оператора or.
Если условие истинно, то выводится сообщение Значение не определено.
Иначе, значение переменной sn вычисляется как a*sin(gamma)/c.
Если sn=-1, то значение переменной alfa устанавливается как -pi/2.
Если sn=1, то значение переменной alfa устанавливается как pi/2.
Иначе, значение переменной alfa вычисляется как arctan(sn/sqrt(1-sn*sn)).
Выводится значение переменной alfa с помощью функции writeln().