program test;
var c: array [1..8] of integer;
i,m: integer;
begin
randomize;
for i:=1 to 8 do
c[i]:=random(21)-10;
if i=1 then m:=c[i] else
if c[i]<m then m:=c[i];
write(c[i],' ')
end;
writeln;
write(m)
end.
program test;
var c: array [1..8] of integer;
i,m: integer;
begin
randomize;
for i:=1 to 8 do
begin
c[i]:=random(21)-10;
if i=1 then m:=c[i] else
if c[i]<m then m:=c[i];
write(c[i],' ')
end;
writeln;
write(m)
end.