Написать программу, в которую вводят 10 чисел с клавиатуры и находят…

Вот программа, блок-схему сами.P.S Вылетает при вводе больших чисел Program P1; Var n, i: Integer; s: LongInt; Begins: =1; For i: =1 to 10 do Begin Write ('Введи ', i, ' число: '); Readln (n); s: =s*n; End; Write ('Произведение=', s); Readln; End.