var a: array[1..10] of byte;
min, i: byte;
begin
Randomize;
for i:=1 to 10 do
a[i]:=random(100);
 
min:=a[1];
for i:=2 to 10 do
if a[i] < min then min:=a[i];
 
writeln(min);
end.