program Project2;
uses
SysUtils;
var x : real;
function F (a,b : byte) : real;
begin
result:=(a-cos(b))/(b-cos(a));
end;
begin
x:=F(1, 2)+F(2, 3)+F(3, 4);
writeln('x=',x:3:2);
readln
end.
Рис.7.1 Програма в процесі виконання
2. Створити програму для обчислення суми факторіалів всіх парних чисел від 
до 
.
