ввести с клавиатуры 6 чисел. найти их произведение

var i,a,p:integer;

begin

p:=1;

for i:=1 to 6 do

begin

write ('Введите число: ');

readln (a);

p:=p*a

end;

writeln('Произведение равно: ',p)

end.