{* Произведение элементов одномерного массива *}

Unit PROISVEDEN;
Interface
Implementation
Begin
 writeln('Произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры');
End.

Program proisveden;

Uses proisveden.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : Array[1..100] Of integer;
  i : integer;
  n : integer;
  p : integer;
Begin
  Write (‘Сколько элементов? ’);
  Readln (n);
  p := 1;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    write (‘введите число’);
    readln (a[i]);
    p := p * a[i];
  End;
  writeln(‘произведение элементов равно :  ‘, p);
End.