Паскаль. Написать программу вычисления произведения n чисел то есть…

Программа не будет давать верный ответ при n>20 т.к. нет такого целочисленного типа переменных. uint64-самый большой из всех vari, n, p: uint64; a: array [1… 10000] of integer; beginread (n); p: =1; for i: =1 to n dobegina[i]: =i; p: =p*a[i]; end; if n>33 thenwriteln ('eror') elseif n=0 thenwriteln ('p=1') elsewriteln ('p=',p); end.