Автомобиль некоторой модели собирают из n1 деталей первого типа, n2 деталей второго типа и т.д., nk деталей k-го типа. На складе имеются детали первого, второго и т.д., k-го типов в количестве соответственно P1, P2, …, PК. Требуется определить, сколько автомобилей можно собрать из имеющихся деталей — Pascal(Паскаль)

var
  detali: array [1 .. 100] of integer;
  i, n: byte;
  min: integer;

BEGIN
  writeln('введите количество типов деталей');
  readln(n);

  for i := 1 to n do
  begin
    writeln('введите количество ', i, ' -ого типа');
    readln(detali[i]);
  end;

  min := detali[1];

  for i := 2 to n do
    if detali[i] < min then
      min := detali[i];

  writeln('Из имеющихся деталей можно построить ', min, ' машин');

END.