Дана последовательность из 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