Рассчитать значение Y, определив и использовав необходимую функцию:а) y= 1+sin1/3 + 5+sin5/3 + 3+sin3/3b) y= 2+sin2/sin5+5 + 6+sin6/sin3+3 + 1+sin1/sin4 + 4 — Pascal(Паскаль)

uses crt;
function F1(a:byte):real;
begin
F1:=(a+sin(a))/3;
end;
function F2(a,b:byte):real;
begin
F2:=(a+sin(a))/(sin(b)+b);
end;
begin
clrscr;
writeln('(1+sin(1))/3+(5+sin(5))/3+(3+sin(3))/3 = ',(F1(1)+F1(5)+F1(3)):0:3);
write('(2+sin(2))/(sin(5)+5)+(6+sin(6))/(sin(3)+3)+(1+sin(a1)/(sin(4)+4) = ',(F2(2,5)+F2(6,3)+F2(1,4)):0:3);
readln
end.