program miinimum;
var
 arv, min: integer;
begin
 write('n='); readln(arv);
 min:=arv;
 while(arv>0) do
 begin
  if(arv<min) then min:=arv;
  write('n='); readln(arv);
 end;
 writeln('V„him arv oli ',min);
end.