program max_min;
uses crt;
var
bil:array[1..100] of integer;
terkecil :integer;
i,n :integer;
begin
clrscr;
writeln;write(' Ada berapa bilangan =');readln(n);
for i:= 1 to n do
begin
write(' Bilangan ke ',i,' = ');readln(bil[i]);
end;
terkecil:=bil[1];
for i:= 2 to n do
if bil[i] < terkecil then
terkecil:=bil[i];


writeln(' Bilangan terkecil =',terkecil);



readln;
end.