program massiv;
var
 A:array [1..10] of integer;
 i,min: integer;
begin
 Randomize;
 for i:=1 to 10 do
  begin
   A[i]:=random(10);
   write(A[i]:3);
  end;
 writeln;
 min := A[1];
 for i:= 2 to 10 do if A[i]<min then min:= A[i];
 Writeln('Наименьшее число = ', min);
 readln
end.