Факториал четных чисел в диапозоне от 2 до 12 включительно .
Программу я написал , только вот в последнем действии 3840 х 12 получается отрицательное число , не могу понять где , помогите плиз , вот мой код:

uses crt;
var
p,i,k:integer;
begin
clrscr;
p:=1;k:=0;
                 for i:=1 to 6 do 
                       begin
                       k:=k+2;
                       p:=k*p;
		       end;
writeln(p);
readln;
end.        

До умножения с 10 доходит все нормально , а вот когда дело касается 12 , то там начинается , помогите разобраться где ошибка

М

Тегами не забываем пользоваться volvo

Integer не вмещает значение 3840 х 12, используй Word или LongInt...

спасибо , я ошибка то детская емое