var
i,m,n:integer;
begin
write('enter m:');{вводим крайнее число}
readln(m);
n:=1;{начальное произведение}
for i:=1 to m do{в цикле до введенного числа}
begin
n:=n*(2*i+1);{очередной член последовательности}
if n<0 then{проверка переполнения буфера}
begin
write('overflow error ');{ссобщение о переполнении буфера}
break;{прерывание цикла}
end
end;
write('Result:=',n);{выводим полдученое значение}
readln;{ожидаем ввод}
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.