Паскаль. Написать программу вычисления произведения n чисел то есть 1*2*3*...*n,причем, если n=0, то произведение равно 1.Число множителей не должно превышать 33.При вводе числа более 33, сообщить об ошибке и повторить ввод.

Предыдущий
вопрос Следующий
вопрос

program Mult;
var
n, i, product: integer;
begin
repeat
write('Enter a number (not more than 33): ');
readln(n);
if (n < 0) or (n > 33) then
writeln('Error: number must be between 0 and 33');
until (n >= 0) and (n <= 33);

product := 1;
for i := 1 to n do
begin
product := product * i;
end;

writeln('The product of numbers from 1 to ', n, ' is: ', product);
end.