program laba; 
var 
N,Num, i, min: Integer; 
begin 
readln(N); 
min :=5; 
for i :=1 to N do 
begin 
read(Num); 
if (num <5) and (num > -10) then 
if num < min then min := num 
else ; 
else writeln('This number is out of range' ); 
end; 
writeln('minimal is ' , min); 
readln; 
end.