Задача 8.1. Скласти програму для обчислення факторіалу числа F=n! з використанням функції для обчислення факторіалу (n!=1*2*3*...*n).

Program PR8_1;
Var F,n:Integer;
Function Factorial(n:integer):longint;
Begin
 if n=1 then Factorial:=1
 else Factorial:=n*Factorial(n-1)
End;
Begin
Write ('Введiть N');
ReadLn(n);
F:=Factorial(n);
WriteLn ('F(',n,')=',F);
End.

Результати роботи програми:
Введiть N 6
F(6) = 720

Завдання 8.1. Скласти програму для обчислення значення функції y=tg(2sinx) з використанням функції для обчислення y.