program z716;
uses crt;
const k=10;
var x:array[1..k]of real;
min :real;
n,i:1..k;
BEGIN
write ('razmernost n');
readln(n);
for i:=1 to n do
begin
write('vvesti x[',i,']');
readln(x[i]);
end;
min:=x[1];
for i:=2 to n do
if x[i] begin
min:=x[i];
end;
writeln('min', min:6:2);
readln;
END.