Перемножить 10 чисел, введенных с клавиатуры - Pascal ABC

Формулировка задачи:

нужен код.помогите!!!!???

Решение задачи: «Перемножить 10 чисел, введенных с клавиатуры»

Листинг программы

var
a:integer;
p:longint;
i:byte;
begin
p:=1;
for i:=1 to 10 do
  begin
  writeln('Введите ',i,' число');
  readln(a);
  p:=p*a;
  end;
  writeln('p=',p);
  
end.

Объяснение кода листинга программы

В данном коде выполняется перемножение 10 чисел, введенных с клавиатуры. Действия в коде можно описать следующим образом:

Переменная a инициализируется типом integer, а переменная p инициализируется типом longint.
Переменная i инициализируется типом byte.
Значение переменной p устанавливается равным 1.
Запускается цикл for, который выполняется 10 раз.
В каждой итерации цикла пользователю предлагается ввести число.
Введенное число сохраняется в переменной a.
Значение переменной p умножается на значение переменной a.
После завершения цикла выводится значение переменной p. Список действий:
Инициализация переменных a и p.
Инициализация переменной i.
Установка значения переменной p равным 1.
Ввод 10 чисел с клавиатуры.
Перемножение введенных чисел.
Вывод результата.