Ответы и объяснения

2014-04-15T14:45:44+00:00
Var i,sum: longint;
begin
sum:=1;

for i:= 1 to 14 do begin
if (i mod 2 <> 0) then
sum:= sum * i;
end;
writeln(sum);
end.