Create a program for the sequential product of integers entered from the keyboard, provide for an exit

Create a program for the sequential product of integers entered from the keyboard, provide for an exit from the product when entering -100.

var
a, c: integer; // declaration of variables of integer type.
begin
c: = 1;
writeln (‘enter a sequence of integers, end of input -100’); // line output.
repeat // start of the cycle.
read (a); // read the entered number.
if a <> -100 then // if the number is not equal to -100, then count the product.
c: = c * a;
until a = -100; // if the number is -100, then exit the loop.
write (‘The product of all numbers in the entered sequence is:’, c); // line output.
end.