Вычислить произведение N произвольных чисел - Turbo Pascal

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

Вычислить произведение N произвольных чисел (На тему – цикл for). Сумма вычисляется сумматором. А как вычислить произведение введённых чисел с циклом for? (Только не перечислением поштучно каждого числа – особенно когда их много)

  uses Crt;
Var Thislo, N, i, R: Integer;
begin
ClrScr;
Write(' Кол. число: ');
   ReadLn(N);      
  for i:= 1 to N do begin
     ReadLn(Thislo);
        R:= Thislo * Thislo * (i + 1);
  end;
 Write(' Произведение  = ' ,К);
   ReadLn
end.

На выходе имеем:

 Кол. чисел:   4
2
3
4
5

Произведение = 125 Получилось не то. А как сделать, чтобы было то. И ещё: можно всё таки ввести числа в одну строку (хотя бы чисел 10) при цикле for , да ешё и перемножить их? Это в массиве можно (вы давали ответ на этот запрос). А без массива что – нельзя? В массиве вводим сразу все числа в оперативную память. А без массива получается ввод по очереди каждого числа. Но второе число не заменяет первое, третье – не заменяет втрое и т. д. Так почему же не получается ввод чисел в одну строку бе з использования массива?

Решение задачи: «Вычислить произведение N произвольных чисел»

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

R:=1;
for i:= 1 to N do
 begin
   ReadLn(Thislo);
    R:=R*Thislo;
 end;

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

В начале программы объявляется переменная R и инициализируется значением 1.
Затем происходит цикл от 1 до N, где N - количество чисел для перемножения.
Внутри цикла происходит чтение числа из файла или с клавиатуры и сохранение его в переменную Thislo.
Затем значение переменной Thislo умножается на значение переменной R.
После завершения цикла значение переменной R будет содержать произведение всех чисел.