Помогите написать програму в Delphi 7 для вычисления выражения с факториалом

[crazy_bird]

Дано натуральное число n
Нужно вычеслить n!+5!
в Delphi

[Вадим Мошев]

var
	n, i, f: longint;
	
begin
	write('n = ');
	read(n);
	
	f:=1;
	
	for i:=2 to n do begin
		f:=f*i
	end;
	
	writeLn('Result = ', f + 2*3*4*5)
end.

[krGorka]

Факториал определен для неотрицательных целых чисел . 0!=1 1!=1 2!=1*2
N!=1*2*..N

  for i:=2 to n do begin
		f:=f*i

нужно заменить на

 if (n>0) then  for i:=1 to n do f:=f*i;

[Serge_Bliznykov]

krGorka, нет, это не так. Если уж Вы вдруг озаботились защитой от неверных данных, то нужно это делать на этапе ввода данных.

напоминаю, что в задаче

Дано натуральное число n

т.е. ввод n:

   repeat
	write('n = ');
	readLn(n);
        if n<1 then WriteLn('error! N must be pozitive!');
   until n>0;

[Вадим Мошев]

Ну, факториал от нуля же равен 1
Думаю, лучше написать, if n<0
Это если совсем упарываться.

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Ну, факториал от нуля же равен 1
Думаю, лучше написать, if n<0
Это если совсем упарываться.

факториал от нуля определён, это так.
Но в задании сказано - "натуральное число"
Ноль не является натуральным числом, этому можно его не принимать!

впрочем, это всё обсуждение не суть как важно, ибо второй пост темы ( (c) Вадим Мошев) задачу решает. Остальное - от лукавого!