Соберите программу. вывести на экран произведение цифр целого числа m> 1. ​

группы клавиш на клавиатуре делятся по своему назначению:

1)алфавитно-цифровая группа - для ввода букв и цифр

2)группа клавиш-модификаторов - для изменения действий других клавиш ( shift,ctrl,alt)

3)   функциональная группа f1-f12

4)цифровая панель (цифры справа для бухгалтеров и операторов)

это основые  группы клавиш на клавиатуре, также могут быть кнопки для , звуком, компьютером..

может быть крик?

решение должно иметь од 20 до 5000

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;