program sdad;

var
  a, b, i, c: integer;


begin
  b := 0;
  i := 1;
  writeln('Введите количество чисел');
  readln(a);
  writeln('Введитe числа');
  
  while b <> a do
  begin
    b := b + 1;
    readln(c);
    i := i * c
  end;
  writeln('Произведение числе = ', i);
end.