Задача по программированию на Pascal. Массив

Задача.

Pascal. Массив

Написать программу которая будет находить произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры. Количество элементов массива
задаётся пользователем. Максимальное количество элементов массива - 100.
Максимальный размер вводимого числа – 3 разряда.

Пример работы программы:

Пример решения задачи:

(программа написана в среде Pascal ABC.Net)

var

a: array[1..100] of integer; //Объявляем массив
i, n, p: integer;
begin
Write('Сколько элементов? ');Readln(n); //считываем количество элементов массива
p := 1; //задаём значение переменной, отвечающей за подсчёт произведения
for i := 1 to n do //задаём цикл от 1 до n количества элеменов массива
begin
write('введите число ');

readln(a[i]); //вводим значение n-ного элемента массива
p := p * a[i]; //вычисляем произведение элементов массива
end;
writeln('произведение элементов равно: ', p); //выводим ответ
end.

Задачу составил учитель информатики Лосев Антон Владимирович