program CicleRepeat;
uses crt;
var mas: array[1..100] of integer;
i,n,min: integer;
begin
clrscr;
writeln('Kol-vo elementov v massive?');
readln(n);
min:=0;
  repeat
   for i:=1 to n do

     write(mas[i]);
     readln(mas[i]);
    if mas[i]<min
      then min:=mas[i];
    writeln('naimenshee chislo ', min);
     until mas[i]=0;
end.