Вычислить произведение произвольных пяти чисел, вводимых с клавиатуры

1*2*3*4*5=120

Program vhh;
var a1,a2,a3,a4,a5,p:integer;
begin
writeln('vvedite a1,a2,a3,a4,a5');
readln(a1,a2,a3,a4,a5);
p:=a1*a2*a3*a4*a5;
writeln('p=',p);
end.