Create a program that calculates the product of the members of a sequence of N natural numbers divisible by 5.

Create a program that calculates the product of the members of a sequence of N natural numbers divisible by 5. The program receives integers as input, the number of entered numbers is unknown, the sequence ends with N.

var n,a:integer; p:real; begin write(‘n = ‘); readln(n); write(‘a = ‘); readln(a); p:=1; while a<>n do begin if a mod 5 = 0 then p:=p*a; write(‘a = ‘); readln(a); end; writeln(‘p = ‘,p); end.