Вычислить произведение целых чисел от 1 до 100.напишите программу.

Сделал до 30 больше терпения не хватило.
результат:2,652528598121911е+32

Program v1;
Var proiz,x :integer;
Begin
X:=1;
While x<=100 do begin
X:=x+1;
proiz:=proiz*x;
End;
Writeln(proiz);
End.

PASCAL