СРОЧНО!! дана последовательность из 10 чисел. Найти произведение этой последовательности. Вести каждое произведение на экран(параметр)

var a, p, i:integer; begin writeln('Введите 10 чисел:'); p:=1; for i:=1 to 10 do  begin  readln(a);  p:=p*a;  writeln('p = ',p);  end; end. Пример: Введите 10 чисел: 2 p = 2 5 p = 10 3 p = 30 1 p = 30 6 p = 180 4 p = 720 8 p = 5760 2 p = 11520 7 p = 80640 9 p = 725760