В чем ошибка Опции

[asu2006]

вычислить S=(x-2)(x-4)…(x-8)/(x-1)(x-3)…(x-7)

Код

var
s:real;
k,i:byte;
x,is,ks: integer;
begin
write('X=');
readln(x);
i:=2;K:=1; is:=1; ks:=1;
while (i<8) and (k<7) do
ks:=ks*(x-k);
is:=is*(x-i);
i:=i+2;
k:=k+2;
s:=is/ks
write('s=', s:5:1);
readln;
end.

Но он почему то считает не правильно.
Почему?

Сообщение отредактировано: asu2006 - 26.11.2007 18:41