type mas=array[1..50]of integer;
var x:mas;
    n,i:integer;
function Min(n:integer):integer;
var w:integer;
begin
if n>1 then
 begin
  w:=Min(n-1);
  if x[n]>w then Min:=w
  else Min:=x[n]
 end
else Min:=x[1]
end;

begin
randomize;
write('Razmer massiva X n=');
readln(n);
writeln('Massiv X:');
for i:=1 to n do
  begin
    x[i]:=random(30);
    write(x[i],' ');
  end;
writeln;
write('min=',Min(n));
end.