посчитать сумму факториалов всех нечетных чисел от 1 до 9 (Паскаль)

[Zlozlo]

написать программу из 2 частей. В основной программе посчитать сумму факториалов всех нечетных чисел от 1 до 9. Подсчет факториалов реализовать в функции

[ZX Spectrum-128]

А здесь-то какие затруднения могут быть? С вычислением факториала? Нечетность определяется функцией odd.

[Mad_Cat]

Function Factorial(n: byte): longint;
begin
if (n = 0) then Factorial := 1
           else Factorial := n*Factorial(n-1);
end;
var i:byte;
s:real;
begin
i:=1;  s:=0;
while i <10 do
begin
s:=s+factorial(i);
inc(i,2);
end;
writeln(s);
end.