const
  n=5;
var
  a: array[1..n] of byte;
  i,imin: byte;
begin
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(21);
    write(a[i],' ');
  end;
  writeln;
  imin:=1;
  for i:=2 to n do
  begin
    if a[i]<a[imin] then imin:=i;
  end;
  writeln('Минимум = ',a[imin]);
end.