Вычислить (13 + sin(7)/(sin(13) +7)* (15 + sin(12)/(sin(15) +12)* (21 + sin(32)/(sin(21) +32) - Pascal ABC

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

Всем привет. Помогите пожалуйста с программой, буду очень благодарен Вычислить (13 + sin(7))/(sin(13) +7)* (15 + sin(12))/(sin(15) +12)* (21 + sin(32))/(sin(21) +32),

используя процедуру с параметрами.

Решение задачи: «Вычислить (13 + sin(7)/(sin(13) +7)* (15 + sin(12)/(sin(15) +12)* (21 + sin(32)/(sin(21) +32)»

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

procedure pr(a,b:integer;var c:real);
begin
c:=(a+sin(b))/(sin(a)+b);
end;
var c1,c2,c3,y:real;
begin
pr(13,7,c1);
pr(15,12,c2);
pr(21,32,c3);
y:=c1*c2+c3;
write('Y=',y:0:2)
end.

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

В процедуре pr используются три переменные: a, b и c. Переменная c является выходным параметром процедуры и представляет собой результат вычисления выражения в скобках.
Выражение (a+sin(b))/(sin(a)+b) вычисляется внутри процедуры pr. Здесь a и b передаются в качестве аргументов, а результат присваивается переменной c.
В начале программы объявлены четыре переменные: c1, c2, c3 и y. Переменная y используется для хранения итогового значения.
Затем вызываются три процедуры pr с разными значениями a и b, и результаты присваиваются переменным c1, c2 и c3 соответственно.
После этого вычисляется значение y как сумма произведений c1, c2 и c3.
Наконец, значение y записывается в файл.